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/STAGG-.lsp | 34 ++++++++++++++++------------------
 1 file changed, 16 insertions(+), 18 deletions(-)

(limited to 'src/algebra/strap/STAGG-.lsp')

diff --git a/src/algebra/strap/STAGG-.lsp b/src/algebra/strap/STAGG-.lsp
index 2c69bba1..0f429a51 100644
--- a/src/algebra/strap/STAGG-.lsp
+++ b/src/algebra/strap/STAGG-.lsp
@@ -50,24 +50,22 @@
   (SPADCALL |x| (|getShellEntry| $ 9))) 
 
 (DEFUN |STAGG-;first;ANniA;3| (|x| |n| $)
-  (PROG ()
-    (RETURN
-      (SPADCALL
-          (LET ((|i| 1) (#0=#:G1447 NIL))
-            (LOOP
-              (COND
-                ((> |i| |n|) (RETURN (NREVERSE #0#)))
-                (T (LETT #0#
-                         (CONS (|STAGG-;c2| |x|
-                                   (LETT |x|
-                                    (SPADCALL |x|
-                                     (|getShellEntry| $ 13))
-                                    |STAGG-;first;ANniA;3|)
-                                   $)
-                               #0#)
-                         |STAGG-;first;ANniA;3|)))
-              (LETT |i| (+ |i| 1) |STAGG-;first;ANniA;3|)))
-          (|getShellEntry| $ 15))))) 
+  (SPADCALL
+      (LET ((|i| 1) (#0=#:G1447 NIL))
+        (LOOP
+          (COND
+            ((> |i| |n|) (RETURN (NREVERSE #0#)))
+            (T (LETT #0#
+                     (CONS (|STAGG-;c2| |x|
+                               (LETT |x|
+                                     (SPADCALL |x|
+                                      (|getShellEntry| $ 13))
+                                     |STAGG-;first;ANniA;3|)
+                               $)
+                           #0#)
+                     |STAGG-;first;ANniA;3|)))
+          (LETT |i| (+ |i| 1) |STAGG-;first;ANniA;3|)))
+      (|getShellEntry| $ 15))) 
 
 (DEFUN |STAGG-;c2| (|x| |r| $)
   (COND
-- 
cgit v1.2.3