From e4b1be114046e0dee277778428df9d9602106e71 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 6 Jun 2006 03:31:23 +0000
Subject: [PATCH] replace values expression-forcing wrapper with begin0 wrapper

svn: r3243
---
 collects/lang/private/teach.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/lang/private/teach.ss b/collects/lang/private/teach.ss
index 4cf3bcf360..399d5f9b9e 100644
--- a/collects/lang/private/teach.ss
+++ b/collects/lang/private/teach.ss
@@ -279,7 +279,7 @@
     (define (ensure-expression stx k)
       (if (memq (syntax-local-context) '(expression))
 	  (k)
-          (stepper-ignore-checker #`(values #,stx))))
+	  (syntax-property #`(begin0 #,stx) 'stepper-skipto (list syntax-e cdr car))))
 
     ;; Use to generate nicer error messages than direct pattern
     ;; matching. The `where' argument is an English description