conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* testing commit of bzr.16

This commit is contained in:
Abdulaziz Ghuloum 2007-05-08 10:04:00 -04:00
parent 18e6ac04fa
commit 1948dd5942
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ikarus.syntax.ss
View File

@ -379,8 +379,8 @@
(unless label (unless label
(stx-error e "unbound identifier")) (stx-error e "unbound identifier"))
(case type (case type
[(lexical core-prim macro global local-macro global-macro [(lexical core-prim macro global local-macro
displaced-lexical) global-macro displaced-lexical)
(values type (binding-value b) id)] (values type (binding-value b) id)]
[else (values 'other #f #f)])))] [else (values 'other #f #f)])))]
[(syntax-pair? e) [(syntax-pair? e)