From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 7 Mar 2010 21:04:01 +0000 (-0500)
Subject: Fix some typos in recent changes to SF.
X-Git-Tag: 20100708-Gtk~125
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b7a26043f78dfb8da0d45b70f41a68a45fbd7b7b;p=mit-scheme.git

Fix some typos in recent changes to SF.

Thanks, mejja.
---

diff --git a/src/sf/object.scm b/src/sf/object.scm
index 44d877f83..fbeba508e 100644
--- a/src/sf/object.scm
+++ b/src/sf/object.scm
@@ -279,7 +279,7 @@ USA.
 ;; True iff evaluation of expression has no side effects.
 (define (expression/effect-free? expression)
   (cond ((access? expression)
-	 (expresssion/effect-free? (access/environment expresssion)))
+	 (expression/effect-free? (access/environment expression)))
 
 	((combination? expression)
 	 (and (for-all? (combination/operands expression) expression/effect-free?)
diff --git a/src/sf/subst.scm b/src/sf/subst.scm
index 7b0d43268..489c15bf0 100644
--- a/src/sf/subst.scm
+++ b/src/sf/subst.scm
@@ -260,7 +260,7 @@ USA.
   (cond ((and (expression/never-false? integrated-predicate)
 	      (noisy-test sf:enable-disjunction-folding? "Folding constant true disjunction"))
 	 ;; (or <exp1> <exp2>) => <exp1> if <exp1> is never false
-	 predicate)
+	 integrated-predicate)
 
 	((and (expression/call-to-not? integrated-predicate)
 	      (noisy-test sf:enable-disjunction-inversion? "Inverting disjunction"))
@@ -685,7 +685,7 @@ USA.
 		    (else (dont-integrate))))
 
 	     ((IGNORE)
-	      (ignored-variable-warning (variable/name variable))
+	      (ignored-variable-warning (variable/name name))
 	      (dont-integrate))
 
 	     ((INTEGRATE INTEGRATE-OPERATOR)
diff --git a/src/sf/tables.scm b/src/sf/tables.scm
index 95d092964..5378970b7 100644
--- a/src/sf/tables.scm
+++ b/src/sf/tables.scm
@@ -150,8 +150,8 @@ USA.
 	  ((null? optional)
 	   (match-rest environment (procedure/rest procedure) remaining-operands))
 	  ;; impossible?
-	  (else (error "INTERNAL ERROR: Required argument list is improper"
-		       required))))
+	  (else (error "INTERNAL ERROR: Optional argument list is improper"
+		       optional))))
 
   (define (listify-tail operands)
     (fold-right