From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sun, 12 Mar 1995 16:31:16 +0000 (+0000)
Subject: Fixed free variable.
X-Git-Tag: 20090517-FFI~6541
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=0b4fe06d6cafc9e16f5f0954fd67a6f180c5ac8f;p=mit-scheme.git

Fixed free variable.
---

diff --git a/v8/src/compiler/base/stats.scm b/v8/src/compiler/base/stats.scm
index 574614123..44d27b4e9 100644
--- a/v8/src/compiler/base/stats.scm
+++ b/v8/src/compiler/base/stats.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: stats.scm,v 1.2 1995/01/05 22:28:22 adams Exp $
+$Id: stats.scm,v 1.3 1995/03/12 16:31:16 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -93,7 +93,7 @@ MIT in each case. |#
       (cond ((find-statistic statistic)
 	     => (lambda (stat)
 		  (apply (compiler-statistic/sample stat) data)
-		  datum))	 
+		  data))
 	    (else
 	     (define-compiler-statistic (length data) statistic)
 	     (warn "SAMPLE should be replaced with call to SAMPLE/1 or SAMPLE/2"