enrico
/
eoc
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix grammar produced by explicate-control

This commit is contained in:
Enrico Lumetti 2021-05-01 00:41:08 +02:00
parent 85dbf65800
commit df520e99ca
2 changed files with 23 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
explicate-control.scm
View File

@ -7,7 +7,7 @@
(define (explicate-control sexp)
(match sexp
[`(program ,info ,exp)
`(program ,info ,(explicate-control-tail exp))]))
`(program ,info ((start . ,(explicate-control-tail exp))))]))
; after a remove-complex-opera*, all expressions
; are compatible with C0

35
test-explicate-control.scm
View File

@ -26,34 +26,39 @@
(test-eq
(pass (list-ref programs 0))
`(program ()
(return (+ 2 3))))
((start .
(return (+ 2 3))))))
(test-eq
(pass (list-ref programs 1))
`(program ()
(seq (assign tmp.1 (- 2))
(return (+ tmp.1 3)))))
((start .
(seq (assign tmp.1 (- 2))
(return (+ tmp.1 3)))))))
(test-eq
(pass (list-ref programs 2))
`(program ()
(seq (assign x.1 20)
(seq (assign x.2 22)
(seq (assign y.1 (+ x.1 x.2))
(return y.1))))))
((start .
(seq (assign x.1 20)
(seq (assign x.2 22)
(seq (assign y.1 (+ x.1 x.2))
(return y.1))))))))
(test-eq
(pass (list-ref programs 3))
`(program ()
(seq (assign a.1 42)
(seq (assign b.1 a.1)
(return b.1)))))
((start .
(seq (assign a.1 42)
(seq (assign b.1 a.1)
(return b.1)))))))
(test-eq
(pass (list-ref programs 4))
`(program ()
(seq (assign tmp.1 (- 1))
(seq (assign x.1 (+ tmp.1 2))
(seq (assign tmp.2 (+ x.1 2))
(seq (assign tmp.3 (+ 4 5))
(return (+ tmp.2 tmp.3))))))))
((start .
(seq (assign tmp.1 (- 1))
(seq (assign x.1 (+ tmp.1 2))
(seq (assign tmp.2 (+ x.1 2))
(seq (assign tmp.3 (+ 4 5))
(return (+ tmp.2 tmp.3))))))))))