From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Thu, 13 Jul 1995 04:00:09 +0000 (+0000)
Subject: Fixed bug in BEGINNIFY.
X-Git-Tag: 20090517-FFI~6178
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=00837326e3fb3b6b487eccb46cce0414db0d6359;p=mit-scheme.git

Fixed bug in BEGINNIFY.
Blew away LMAP.
---

diff --git a/v8/src/compiler/midend/utils.scm b/v8/src/compiler/midend/utils.scm
index 3818abf33..21f7485b7 100644
--- a/v8/src/compiler/midend/utils.scm
+++ b/v8/src/compiler/midend/utils.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: utils.scm,v 1.26 1995/07/04 18:15:58 adams Exp $
+$Id: utils.scm,v 1.27 1995/07/13 04:00:09 adams Exp $
 
 Copyright (c) 1994-1995 Massachusetts Institute of Technology
 
@@ -243,11 +243,9 @@ MIT in each case. |#
 		     actions*)))
 	  ((and (not (null? actions*))
 		(or (form/satisfies? (car actions) '(SIDE-EFFECT-FREE))
-		    (and compiler:guru?
-			 (form/satisfies? (car actions) '(STATIC))
-			 (begin
-			   (write-line `(BEGINNIFY ELIDING ,(car actions)))
-			   #T))))
+		    (form/satisfies? (car actions) '(STATIC))))
+	   (if compiler:guru?
+	       (write-line `(BEGINNIFY ELIDING ,(car actions))))
 	   (loop (cdr actions) actions*))
 	  (else
 	   (loop (cdr actions)
@@ -280,7 +278,7 @@ MIT in each case. |#
 	    (finish
 	     (lambda (cont-name cont-expr bindings*)
 	       (let ((rator* `(LAMBDA (,cont-name
-				       ,@(lmap car bindings*))
+				       ,@(map car bindings*))
 				,body)))
 		 `(CALL ,(remember rator* rator)
 			,cont-expr
@@ -915,14 +913,6 @@ Example use of FORM/COPY-TRANSFORMING:
 	   (loop (cons (car l) elements)
 		 (cdr l))))))
 
-(define-integrable (lmap proc l)
-  (let loop ((l l) (l* '()))
-    (if (null? l)
-	(reverse! l*)
-	(loop (cdr l)
-	      (cons (proc (car l))
-		    l*)))))
-
 (define (difference set1 set2)
   (list-transform-negative set1
     (lambda (element)