From 96bf16302b639c3983f6e396776b617b10e577d9 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Sun, 7 Oct 2012 12:53:24 -0700 Subject: [PATCH] Spelling correction. --- src/sf/object.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/sf/object.scm b/src/sf/object.scm index 502284ddd..cef13b6d0 100644 --- a/src/sf/object.scm +++ b/src/sf/object.scm @@ -453,8 +453,8 @@ USA. ;; Check that the arguments are constant. (for-all? operands constant?))) -;; An operator is reducable if we can safely rewrite its argument list. -(define (reducable-operator? operator) +;; An operator is reducible if we can safely rewrite its argument list. +(define (reducible-operator? operator) (and (procedure? operator) ;; if the block is not safe, then random code can be ;; injected and it will expect to see all the arguments. @@ -477,7 +477,7 @@ USA. (constant/value operator) (map constant/value operands))) - ((and (reducable-operator? operator) + ((and (reducible-operator? operator) (noisy-test sf:enable-argument-deletion? "Delete argument")) (call-with-values (lambda () (partition-operands operator operands)) (lambda (new-argument-list new-operand-list other-operands) -- 2.25.1