From d31c116e4080b085554c7f5cad72851cdb0e7b16 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 3 Feb 2011 07:07:41 +0000
Subject: 	* interp/slam.boot (reportFunctionCompilation): Use
 %otherwise, 	not %true for default cases. 	(reportFunctionCacheAll):
 Likewise. 	(compileRecurrenceRelation): Likewise. 	*
 interp/lisp-backend.boot (expandTry): Tidy. 	* interp/g-opt.boot
 ($VMsideEffectFreeOperators): Include %otherwise. 	* interp/compiler.boot
 (compAlternativeGuard): Emit %otherwise 	form, not Lisp level T form. 
 * interp/clam.boot (compClam): Tidy. 	(compHash): Likewise. 
 (compHashGlobal): Likewise.

---
 src/interp/g-opt.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/g-opt.boot')

diff --git a/src/interp/g-opt.boot b/src/interp/g-opt.boot
index 4806b103..b02b81b3 100644
--- a/src/interp/g-opt.boot
+++ b/src/interp/g-opt.boot
@@ -401,7 +401,7 @@ $VMsideEffectFreeOperators ==
      QEQCAR QCDR QCAR IDENTP
       FLOAT_-RADIX FLOAT FLOAT_-SIGN
       CGREATERP GGREATERP CHAR GET BVEC_-GREATER %when %false %true
-      %2bit %2bool
+      %otherwise %2bit %2bool
       %and %or %not %peq %ieq %ilt %ile %igt %ige %head %tail %integer?
       %beq %blt %ble %bgt %bge %bitand %bitior %bitnot %bcompl %ilength
       %ibit %icst0 %icst1
-- 
cgit v1.2.3