From 2766e84dde6e996c6e0940ba64c8fd2575c7170a Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Thu, 1 Aug 1996 11:38:02 +0000 Subject: [PATCH] Fixed kmp->ppp so that it doesnt barf on improper lists in RTL constants. --- v8/src/compiler/midend/utils.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/v8/src/compiler/midend/utils.scm b/v8/src/compiler/midend/utils.scm index 85a0551cc..ec0d56c4c 100644 --- a/v8/src/compiler/midend/utils.scm +++ b/v8/src/compiler/midend/utils.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: utils.scm,v 1.31 1996/03/09 18:27:52 adams Exp $ +$Id: utils.scm,v 1.32 1996/08/01 11:38:02 adams Exp $ -Copyright (c) 1994-1995 Massachusetts Institute of Technology +Copyright (c) 1994-1996 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -137,7 +137,7 @@ MIT in each case. |# (cond ((symbol? closure) (gen closure)) ((LOOKUP/? closure) (gen (lookup/name closure))) (else expr)))) - (cond ((QUOTE/? expr) + (cond ((or (QUOTE/? expr) (and (pair? expr) (eq? (car expr) 'CONSTANT))) expr) ;;((LET/? expr) ;; (let do-let ((names '()) (values '()) (form expr)) @@ -1146,7 +1146,7 @@ Example use of FORM/COPY-TRANSFORMING: (/ x y) (careful-error "/: Domain error" x y))) -;; This is hideously slow: +;; This is slow: (define (apply-carefully operator operands) (let ((result (ignore-errors (lambda () (apply operator operands))))) (if (condition? result) -- 2.25.1