X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/aa14a4cddcb96b681d5c19a2ec8bad382f43b264..1d8206e9888ca942c039986ffb9c185c80b1e74c:/src/parser/parser-expr-proto.lisp

diff --git a/src/parser/parser-expr-proto.lisp b/src/parser/parser-expr-proto.lisp
index 7fc2609..929e85a 100644
--- a/src/parser/parser-expr-proto.lisp
+++ b/src/parser/parser-expr-proto.lisp
@@ -41,7 +41,7 @@ (defgeneric push-value (value state)
   (:documentation
    "Push VALUE onto the STATE's value stack.
 
-   The default message just does that without any fuss.  It's unlikely that
+   The default method just does that without any fuss.  It's unlikely that
    this will need changing unless you invent some really weird values."))
 
 (export 'apply-operator)
@@ -154,7 +154,7 @@ (defclass prefix-operator ()
 
 (export 'simple-operator)
 (defclass simple-operator ()
-  ((function :initarg :function :reader operator-function)
+  ((%function :initarg :function :reader operator-function)
    (name :initarg :name :initform "<unnamed operator>"
 	 :reader operator-name))
   (:documentation