From: Joe Marshall <eval.apply@gmail.com>
Date: Sun, 7 Oct 2012 19:53:24 +0000 (-0700)
Subject: Spelling correction.
X-Git-Tag: release-9.2.0~215
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=96bf16302b639c3983f6e396776b617b10e577d9;p=mit-scheme.git

Spelling correction.
---

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)