replace values expression-forcing wrapper with begin0 wrapper

svn: r3243
2006-06-06 03:31:23 +00:00 · 2006-06-06 03:31:23 +00:00 · e4b1be1140
commit e4b1be1140
parent 8307dea9c7
1 changed files with 1 additions and 1 deletions
--- 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