From 4348e69c730e4e3faa7b993ac0dac5ec426a374c Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 6 Jun 2010 05:36:53 +0000
Subject: 	* interp/c-util.boot (needPROGS?): New. 
 (transformToBackendCode): Use it.  Don't add unneeded PROG/RETURN.

---
 src/algebra/strap/BOOLEAN.lsp | 24 ++++++++++--------------
 1 file changed, 10 insertions(+), 14 deletions(-)

(limited to 'src/algebra/strap/BOOLEAN.lsp')

diff --git a/src/algebra/strap/BOOLEAN.lsp b/src/algebra/strap/BOOLEAN.lsp
index 050afcf3..19bdb581 100644
--- a/src/algebra/strap/BOOLEAN.lsp
+++ b/src/algebra/strap/BOOLEAN.lsp
@@ -151,21 +151,17 @@
   (COND (|x| '|true|) ('T '|false|))) 
 
 (DEFUN |Boolean| ()
-  (PROG ()
+  (PROG (#0=#:G1424)
     (RETURN
-      (PROG (#0=#:G1424)
-        (RETURN
-          (COND
-            ((LETT #0# (HGET |$ConstructorCache| '|Boolean|) |Boolean|)
-             (|CDRwithIncrement| (CDAR #0#)))
-            ('T
-             (UNWIND-PROTECT
-               (PROG1 (CDDAR (HPUT |$ConstructorCache| '|Boolean|
-                                   (LIST
-                                    (CONS NIL (CONS 1 (|Boolean;|))))))
-                 (LETT #0# T |Boolean|))
-               (COND
-                 ((NOT #0#) (HREM |$ConstructorCache| '|Boolean|))))))))))) 
+      (COND
+        ((LETT #0# (HGET |$ConstructorCache| '|Boolean|) |Boolean|)
+         (|CDRwithIncrement| (CDAR #0#)))
+        ('T
+         (UNWIND-PROTECT
+           (PROG1 (CDDAR (HPUT |$ConstructorCache| '|Boolean|
+                               (LIST (CONS NIL (CONS 1 (|Boolean;|))))))
+             (LETT #0# T |Boolean|))
+           (COND ((NOT #0#) (HREM |$ConstructorCache| '|Boolean|))))))))) 
 
 (DEFUN |Boolean;| ()
   (LET ((|dv$| (LIST '|Boolean|)) ($ (|newShell| 39))
-- 
cgit v1.2.3