From: Chris Hanson Date: Sat, 5 Nov 1988 22:14:02 +0000 (+0000) Subject: Efficiency improvement to last change. X-Git-Tag: 20090517-FFI~12435 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c36ceff14340e707d61b41c7536900b81e084911;p=mit-scheme.git Efficiency improvement to last change. --- 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)))