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

continuing to work on the call/cc linkage

Browse Source
This commit is contained in:
Danny Yoo 2011-03-11 17:46:43 -05:00
parent f3a5728f89
commit beb592d251
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
simulator-primitives.rkt
View File

@ -29,7 +29,7 @@
(make-undefined)] (make-undefined)]
)))))])) )))))]))
(define my-callcc (define call/cc
(make-closure call/cc-label (make-closure call/cc-label
1 1
'())) '()))
@ -57,4 +57,4 @@
display display
displayln displayln
newline) newline)
#:constants (null pi e))) #:constants (null pi e call/cc)))

4
test-compiler.rkt
View File

@ -531,5 +531,9 @@
#:control-limit 1) #:control-limit 1)
(test (let ([x 16])
(call/cc (lambda (k) (+ x x))))
32)
;(simulate (compile (parse '42) 'val 'next)) ;(simulate (compile (parse '42) 'val 'next))
;(compile (parse '(+ 3 4)) 'val 'next) ;(compile (parse '(+ 3 4)) 'val 'next)