suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixing assembly

Browse Source
This commit is contained in:
Danny Yoo 2011-03-21 23:42:55 -04:00
parent 07f86a8012
commit 2c99b067e5
2 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
assemble.rkt
View File

@ -137,6 +137,8 @@ EOF
[(CaptureEnvironment? op) [(CaptureEnvironment? op)
empty] empty]
[(CaptureControl? op) [(CaptureControl? op)
empty]
[(MakeBoxedEnvironmentValue? op)
empty])) empty]))
(: collect-primitive-command (PrimitiveCommand -> (Listof Symbol))) (: collect-primitive-command (PrimitiveCommand -> (Listof Symbol)))
@ -392,7 +394,10 @@ EOF
(CaptureEnvironment-skip op))] (CaptureEnvironment-skip op))]
[(CaptureControl? op) [(CaptureControl? op)
(format "MACHINE.control.slice(0, MACHINE.control.length - ~a)" (format "MACHINE.control.slice(0, MACHINE.control.length - ~a)"
(CaptureControl-skip op))])) (CaptureControl-skip op))]
[(MakeBoxedEnvironmentValue? op)
(format "[MACHINE.env[MACHINE.env.length - 1 - ~a]]"
(MakeBoxedEnvironmentValue-depth op))]))
(: assemble-op-statement (PrimitiveCommand -> String)) (: assemble-op-statement (PrimitiveCommand -> String))

17
test-browser-evaluate.rkt
View File

@ -171,5 +171,22 @@ EOF
(test '(begin (define counter 0)
(set! counter (add1 counter))
(displayln counter))
"1\n")
(test '(begin (define x 16)
(define (f x)
(set! x (add1 x))
x)
(displayln (f 3))
(displayln (f 4))
(displayln x))
"4\n5\n16\n")
#;(test (read (open-input-file "tests/conform/program0.sch")) #;(test (read (open-input-file "tests/conform/program0.sch"))
(port->string (open-input-file "tests/conform/expected0.txt"))) (port->string (open-input-file "tests/conform/expected0.txt")))