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

fixed a bug in internal definitions of with-syntax (again).

This commit is contained in:
Abdulaziz Ghuloum 2009-04-07 02:33:09 +03:00
parent 56ec093e05
commit bcff57fa52
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 @@
1758 1759

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 ,b . ,b*)) ((null? pat*) `(let () ,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*)))