From b7a26043f78dfb8da0d45b70f41a68a45fbd7b7b Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Sun, 7 Mar 2010 16:04:01 -0500 Subject: [PATCH] Fix some typos in recent changes to SF. Thanks, mejja. --- src/sf/object.scm | 2 +- src/sf/subst.scm | 4 ++-- src/sf/tables.scm | 4 ++-- 3 files changed, 5 insertions(+), 5 deletions(-) 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 ) => if 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 -- 2.25.1