From 00837326e3fb3b6b487eccb46cce0414db0d6359 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Thu, 13 Jul 1995 04:00:09 +0000 Subject: [PATCH] Fixed bug in BEGINNIFY. Blew away LMAP. --- v8/src/compiler/midend/utils.scm | 20 +++++--------------- 1 file changed, 5 insertions(+), 15 deletions(-) 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) -- 2.25.1