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

* working on libcompile

This commit is contained in:
Abdulaziz Ghuloum 2007-05-01 00:06:47 -04:00
parent 16a57eaf5c
commit 17664b1a37
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/libcompile.ss
View File

@ -551,8 +551,8 @@
[(funcall) #t] [(funcall) #t]
[(conditional) #f] [(conditional) #f]
[(bind lhs* rhs* body) (valid-mv-producer? body)] [(bind lhs* rhs* body) (valid-mv-producer? body)]
[else #f] ;; FIXME BUG [#t #f] ;; FIXME BUG
#;[else (error 'valid-mv-producer? "unhandles ~s" [else (error 'valid-mv-producer? "unhandles ~s"
(unparse x))])) (unparse x))]))
(record-case rator (record-case rator
[(clambda g cls*) [(clambda g cls*)