From c36ceff14340e707d61b41c7536900b81e084911 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 5 Nov 1988 22:14:02 +0000 Subject: [PATCH] Efficiency improvement to last change. --- v7/src/sf/subst.scm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/v7/src/sf/subst.scm b/v7/src/sf/subst.scm index c0f3f949d..724c2e763 100644 --- a/v7/src/sf/subst.scm +++ b/v7/src/sf/subst.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/subst.scm,v 4.3 1988/09/22 18:42:57 jrm Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/subst.scm,v 4.4 1988/11/05 22:14:02 cph Rel $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -828,12 +828,11 @@ forms are simply removed. (constant/make (apply (constant/value operator) (map foldable-constant-value operands)))) - ;; (force (delay x)) ==> x - ((and (constant? operator) - (primitive-procedure? (constant/value operator)) - (eq? (constant/value operator) - (make-primitive-procedure 'FORCE)) - (eq? (length operands) 1) + ( + ;; (force (delay x)) ==> x + (and (constant? operator) + (eq? (constant/value operator) force) + (= (length operands) 1) (delay? (car operands))) (delay/expression (car operands))) -- 2.25.1