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

...

Browse Source 
svn: r763
This commit is contained in:
John Clements 2005-09-04 07:38:45 +00:00
parent f68dda3324
commit e54afdb8c8
1 changed files with 4 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

@ -1763,7 +1763,10 @@
exprs exprs
null) null)
(if continuing? (if continuing?
(syntax-property
(syntax/loc stx (begin (set! id expr ...) set!-result)) (syntax/loc stx (begin (set! id expr ...) set!-result))
'stepper-skipto
(list syntax-e cdr syntax-e car))
(syntax-property (syntax-property
(syntax/loc stx (#%app values (advanced-set!-continue id expr ...))) (syntax/loc stx (#%app values (advanced-set!-continue id expr ...)))
'stepper-skipto 'stepper-skipto