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/VECTOR.lsp | 26 ++++++++++++--------------
 1 file changed, 12 insertions(+), 14 deletions(-)

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

diff --git a/src/algebra/strap/VECTOR.lsp b/src/algebra/strap/VECTOR.lsp
index b3208017..4e5d078a 100644
--- a/src/algebra/strap/VECTOR.lsp
+++ b/src/algebra/strap/VECTOR.lsp
@@ -27,21 +27,19 @@
       (|getShellEntry| $ 19))) 
 
 (DEFUN |Vector| (#0=#:G1408)
-  (PROG ()
+  (PROG (#1=#:G1409)
     (RETURN
-      (PROG (#1=#:G1409)
-        (RETURN
-          (COND
-            ((LETT #1#
-                   (|lassocShiftWithFunction| (LIST (|devaluate| #0#))
-                       (HGET |$ConstructorCache| '|Vector|)
-                       '|domainEqualList|)
-                   |Vector|)
-             (|CDRwithIncrement| #1#))
-            ('T
-             (UNWIND-PROTECT
-               (PROG1 (|Vector;| #0#) (LETT #1# T |Vector|))
-               (COND ((NOT #1#) (HREM |$ConstructorCache| '|Vector|))))))))))) 
+      (COND
+        ((LETT #1#
+               (|lassocShiftWithFunction| (LIST (|devaluate| #0#))
+                   (HGET |$ConstructorCache| '|Vector|)
+                   '|domainEqualList|)
+               |Vector|)
+         (|CDRwithIncrement| #1#))
+        ('T
+         (UNWIND-PROTECT
+           (PROG1 (|Vector;| #0#) (LETT #1# T |Vector|))
+           (COND ((NOT #1#) (HREM |$ConstructorCache| '|Vector|))))))))) 
 
 (DEFUN |Vector;| (|#1|)
   (LET* ((|dv$1| (|devaluate| |#1|)) (|dv$| (LIST '|Vector| |dv$1|))
-- 
cgit v1.2.3