From dd9e11e1c782392018320b786911a6cd08534fda Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 29 Mar 2019 11:00:44 -0600
Subject: [PATCH] cs: fix `$value` confusion in schemify and `begin0`

The attempted repair for `$value` in 6c195d521c was wrong.
---
 racket/src/cs/rumble/begin0.ss    | 2 --
 racket/src/schemify/interpret.rkt | 3 ++-
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/racket/src/cs/rumble/begin0.ss b/racket/src/cs/rumble/begin0.ss
index 4e9fe78071..1f52637148 100644
--- a/racket/src/cs/rumble/begin0.ss
+++ b/racket/src/cs/rumble/begin0.ss
@@ -3,8 +3,6 @@
 (define-syntax begin0
   (syntax-rules (void)
     [(_ expr0) expr0]
-    [(_ expr0 (void)) ; detect this pattern as a way of accessing the `$value` form
-     ($value expr0)]
     [(_ expr0 expr ...)
      (call-with-values (lambda ()
                          (call-with-values (lambda () expr0)
diff --git a/racket/src/schemify/interpret.rkt b/racket/src/schemify/interpret.rkt
index 5ac306d9ae..05754c88b5 100644
--- a/racket/src/schemify/interpret.rkt
+++ b/racket/src/schemify/interpret.rkt
@@ -613,7 +613,8 @@
                       (apply values new-stack vals))
                   (loop (fx+ i 1) new-stack)))))]
         [#($value ,e)
-         (begin0 (interpret e stack) (void))]
+         (let ([v (interpret e stack)])
+           v)]
         [#(clear ,clears ,e)
          (let loop ([clears clears] [stack stack])
            (cond