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*)

2
src/makefile.ss
View File

@ -235,7 +235,7 @@
["libcollect.ss" "libcollect.fasl" p0 onepass] ["libcollect.ss" "libcollect.fasl" p0 onepass]
["librecord.ss" "librecord.fasl" p0 onepass] ["librecord.ss" "librecord.fasl" p0 onepass]
["libcxr.ss" "libcxr.fasl" p0 onepass] ["libcxr.ss" "libcxr.fasl" p0 onepass]
["libnumerics.ss" "libnumerics.fasl" p0 onepass] ["libnumerics.ss" "libnumerics.fasl" p0 onepass]
["libguardians.ss" "libguardians.fasl" p0 onepass] ["libguardians.ss" "libguardians.fasl" p0 onepass]
["libcore.ss" "libcore.fasl" p0 onepass] ["libcore.ss" "libcore.fasl" p0 onepass]
["libchezio.ss" "libchezio.fasl" p0 onepass] ["libchezio.ss" "libchezio.fasl" p0 onepass]