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

added annotation for advanced setbang

Browse Source 
svn: r743
This commit is contained in:
John Clements 2005-09-01 23:12:20 +00:00
parent e1e7b9fe43
commit e728ab2925
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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