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

stepper annotation to skip introduced 'values'

Browse Source 
svn: r1499
This commit is contained in:
Matthew Flatt 2005-12-02 21:33:27 +00:00
parent a9add5064d
commit 26c5a97299
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/lang/private/teach.ss
View File

@ -852,7 +852,8 @@
(syntax-source-module #'id)) (syntax-source-module #'id))
;; ... but it might be defined later in the module, so ;; ... but it might be defined later in the module, so
;; delay the check. ;; delay the check.
(syntax/loc stx (#%app values (beginner-top-continue id))) (let ([tc (syntax/loc stx (beginner-top-continue id))])
(ensure-expression tc (lambda () tc)))
(syntax/loc stx (#%top . id)))])) (syntax/loc stx (#%top . id)))]))
(define (beginner-top-continue/proc stx) (define (beginner-top-continue/proc stx)