From: Chris Hanson Date: Thu, 1 Nov 2001 18:42:59 +0000 (+0000) Subject: Use RVALUE/TRUE-PROCEDURE? where appropriate. X-Git-Tag: 20090517-FFI~2478 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e570ff1592c0d99c22905effc3dbc537568a862e;p=mit-scheme.git Use RVALUE/TRUE-PROCEDURE? where appropriate. --- diff --git a/v7/src/compiler/fgopt/closan.scm b/v7/src/compiler/fgopt/closan.scm index 179ee0e69..a88939b81 100644 --- a/v7/src/compiler/fgopt/closan.scm +++ b/v7/src/compiler/fgopt/closan.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: closan.scm,v 4.20 2001/11/01 18:37:39 cph Exp $ +$Id: closan.scm,v 4.21 2001/11/01 18:42:59 cph Exp $ Copyright (c) 1987-1991, 1998, 1999, 2001 Massachusetts Institute of Technology @@ -52,12 +52,10 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA (map rvalue-values (cdr operands))) '())))) (set-application-operand-values! combination values) - (for-each - (lambda (value) - (if (and (rvalue/procedure? value) - (not (procedure-continuation? value))) - (set-procedure-virtual-closure?! value #t))) - values)) + (for-each (lambda (value) + (if (rvalue/true-procedure? value) + (set-procedure-virtual-closure?! value #t))) + values)) (set-combination/model! combination (rvalue-known-value (combination/operator combination)))) @@ -169,8 +167,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA (define (close-values! values reason1 reason2) (for-each (lambda (value) - (if (and (rvalue/procedure? value) - (not (procedure-continuation? value))) + (if (rvalue/true-procedure? value) (close-procedure! value reason1 reason2))) values)) @@ -437,8 +434,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA (lambda (block*) (for-each (lambda (application) (for-each (lambda (value) - (if (and (rvalue/procedure? value) - (not (procedure-continuation? value))) + (if (rvalue/true-procedure? value) (action value))) (rvalue-values (application-operator application))))