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

cs: fix $value confusion in schemify and begin0

Browse Source 
The attempted repair for `$value` in 6c195d521c was wrong.
This commit is contained in:
Matthew Flatt 2019-03-29 11:00:44 -06:00
parent 253f0f4383
commit dd9e11e1c7
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/cs/rumble/begin0.ss
View File

@ -3,8 +3,6 @@
(define-syntax begin0 (define-syntax begin0
(syntax-rules (void) (syntax-rules (void)
[(_ expr0) expr0] [(_ expr0) expr0]
[(_ expr0 (void)) ; detect this pattern as a way of accessing the `$value` form
($value expr0)]
[(_ expr0 expr ...) [(_ expr0 expr ...)
(call-with-values (lambda () (call-with-values (lambda ()
(call-with-values (lambda () expr0) (call-with-values (lambda () expr0)

3
racket/src/schemify/interpret.rkt
View File

@ -613,7 +613,8 @@
(apply values new-stack vals)) (apply values new-stack vals))
(loop (fx+ i 1) new-stack)))))] (loop (fx+ i 1) new-stack)))))]
[#($value ,e) [#($value ,e)
(begin0 (interpret e stack) (void))] (let ([v (interpret e stack)])
v)]
[#(clear ,clears ,e) [#(clear ,clears ,e)
(let loop ([clears clears] [stack stack]) (let loop ([clears clears] [stack stack])
(cond (cond