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

2
compile.rkt
View File

@ -395,7 +395,7 @@
;; This case happens for set!, which may install the results of an
;; application directly into the environment.
(let ([proc-return (make-label 'procReturn)])
(end-with-linkage linkage
(end-with-linkage linkage
cenv-without-args
(make-instruction-sequence
`(,(make-PushControlFrame proc-return)

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")))