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

tracing error in compilation

Browse Source
This commit is contained in:
Danny Yoo 2011-03-23 18:30:13 -04:00
parent 8f1ebec184
commit 7357c8e850
3 changed files with 53 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
simulator.rkt
View File

@ -309,6 +309,7 @@
[(GetControlStackLabel? op)
(target-updater! m (frame-return (first (machine-control m))))]
[(CaptureEnvironment? op)
(target-updater! m (make-CapturedEnvironment (drop (machine-env m)
(CaptureEnvironment-skip op))))]

51
test-compiler.rkt
View File

@ -663,6 +663,57 @@
(test '(begin (define a '(hello))
(define b '(world))
(define reset!
(lambda ()
(set! a '())
(reset!)))
(list a b))
'(() (world)))
(test '(begin (define a '(hello))
(define b '(world))
(define reset!
(lambda ()
(set! b '())))
(reset!)
(list a b))
'((hello) ()))
(test '(begin (define a '(hello))
(define b '(world))
(define reset!
(lambda ()
(set! a '())
'ok))
(reset!)
(list a b))
'(()(world)))
(test '(begin (define a '(hello))
(define b '(world))
(define reset!
(lambda ()
(set! b '())
'ok))
(reset!)
(list a b))
'((hello)()))
(test '(begin (define a '(hello))
(define b '(world))
(define reset!
(lambda ()
(set! a '())
(set! b '())))
(reset!)
(list a b))
'(()()))
#;(test (read (open-input-file "tests/conform/program0.sch"))
(port->string (open-input-file "tests/conform/expected0.txt")))