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

fixed definition of with-syntax to allow internal definitions.

This commit is contained in:
Abdulaziz Ghuloum 2009-04-06 16:30:23 +03:00
parent 5e1066170e
commit af46220d64
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1750 1751

2
scheme/psyntax.expander.ss
View File

@ -1102,7 +1102,7 @@
`(let ,(map list t* expr*) `(let ,(map list t* expr*)
,(let f ((pat* pat*) (t* t*)) ,(let f ((pat* pat*) (t* t*))
(cond (cond
((null? pat*) `(begin #f ,b . ,b*)) ((null? pat*) `(begin ,b . ,b*))
(else (else
`(syntax-case ,(car t*) () `(syntax-case ,(car t*) ()
(,(car pat*) ,(f (cdr pat*) (cdr t*))) (,(car pat*) ,(f (cdr pat*) (cdr t*)))