From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Sun, 14 Mar 2010 22:45:36 +0000 (-0700)
Subject: Don't track invocation count on variables.
X-Git-Tag: 20100708-Gtk~97
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=894521abf6c8c979d20c0500fb7ffc9e98b026a7;p=mit-scheme.git

Don't track invocation count on variables.
---

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)