cs: fix $value handling in fallback interpreter

Closes #2951
2019-12-04 07:06:50 -07:00 · 2019-12-04 07:06:50 -07:00 · 4a36512570
commit 4a36512570
parent 1c74f8c956
1 changed files with 4 additions and 2 deletions
--- a/racket/src/schemify/interpret.rkt
+++ b/racket/src/schemify/interpret.rkt
@ -622,8 +622,10 @@
                      (apply values new-stack vals))
                  (loop (fx+ i 1) new-stack)))))]
        [#($value ,e)
-         (let ([v (interpret e stack)])
-           v)]
+         (let-values ([(new-stack v) (interpret e stack #f)])
+           (if tail?
+               v
+               (values new-stack v)))]
        [#(clear ,clears ,e)
         (let loop ([clears clears] [stack stack])
           (cond