From 894521abf6c8c979d20c0500fb7ffc9e98b026a7 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Sun, 14 Mar 2010 15:45:36 -0700 Subject: [PATCH] Don't track invocation count on variables. --- src/sf/object.scm | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) diff --git a/src/sf/object.scm b/src/sf/object.scm index bfc6440a0..0d15dfe43 100644 --- a/src/sf/object.scm +++ b/src/sf/object.scm @@ -196,9 +196,6 @@ USA. (write (variable/name var) port))))) block name - ;; A count of how many times in the block that the variable - ;; is invoked as an operator. - (invocation-count 0) flags) (define-guarantee variable "variable") @@ -206,7 +203,7 @@ USA. ;;; Expressions (define-simple-type access #f (environment name)) (define-simple-type assignment #f (block variable value)) -(define-simple-type combination combination/%%make (block operator operands)) +(define-simple-type combination combination/%make (block operator operands)) (define-simple-type conditional conditional/%make (predicate consequent alternative)) (define-simple-type constant #f (value)) (define-simple-type declaration #f (declarations expression)) @@ -340,14 +337,6 @@ USA. ;;; Constructors that need to do work. -(define (combination/%make scode block operator operands) - ;; Keep track of how many times a reference appears as an operator. - (if (reference? operator) - (let ((variable (reference/variable operator))) - (set-variable/invocation-count! variable - (1+ (variable/invocation-count variable))))) - (combination/%%make scode block operator operands)) - ;; When constucting a combination, we may discover that we ;; can reduce the combination through constant folding. (define sf:enable-constant-folding? #t) -- 2.25.1