* working on libcompile

2007-05-01 00:06:47 -04:00 · 2007-05-01 00:06:47 -04:00 · 17664b1a37
parent 16a57eaf5c
commit 17664b1a37
2 changed files with 3 additions and 3 deletions
--- a/src/libcompile.ss
+++ b/src/libcompile.ss
@ -551,8 +551,8 @@
        [(funcall) #t]
        [(conditional) #f]
        [(bind lhs* rhs* body) (valid-mv-producer? body)]
-        [else #f] ;; FIXME BUG
-        #;[else (error 'valid-mv-producer? "unhandles ~s"
+        [#t #f] ;; FIXME BUG
+        [else (error 'valid-mv-producer? "unhandles ~s"
                     (unparse x))]))
    (record-case rator
      [(clambda g cls*)