From 17664b1a3741cfd411bcb2547ad2f317debc46d6 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Tue, 1 May 2007 00:06:47 -0400 Subject: [PATCH] * working on libcompile --- src/libcompile.ss | 4 ++-- src/makefile.ss | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/libcompile.ss b/src/libcompile.ss index 7cb6701..02704ca 100644 --- 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*) diff --git a/src/makefile.ss b/src/makefile.ss index 34135ff..d350ea2 100755 --- a/src/makefile.ss +++ b/src/makefile.ss @@ -235,7 +235,7 @@ ["libcollect.ss" "libcollect.fasl" p0 onepass] ["librecord.ss" "librecord.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] ["libcore.ss" "libcore.fasl" p0 onepass] ["libchezio.ss" "libchezio.fasl" p0 onepass]