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

preserve original id use in expansion of first-order->higher-order

Browse Source 
svn: r15699
This commit is contained in:
Matthew Flatt 2009-08-11 01:58:03 +00:00
parent 86d0ef6b1b
commit 3cb2775f7c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/lang/private/firstorder.ss
View File

@ -13,8 +13,11 @@
(if (or (fo? v)
(and (set!-transformer? v)
(fo? (set!-transformer-procedure v))))
(syntax-local-introduce
(fo-proc-id (if (fo? v) v (set!-transformer-procedure v))))
(syntax-property
(syntax-local-introduce
(fo-proc-id (if (fo? v) v (set!-transformer-procedure v))))
'disappeared-use
(syntax-local-introduce id))
id))))