diff options
author | dos-reis <gdr@axiomatics.org> | 2009-05-28 04:40:50 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-05-28 04:40:50 +0000 |
commit | 7419778f059a3a44bd3b0ec23facd7f27a479324 (patch) | |
tree | f91f2622cda5d86740fa803819c8c4988f443003 /src/interp/metalex.lisp | |
parent | 4bcd0938f132e9841579ecd7c958166f6a7565db (diff) | |
download | open-axiom-7419778f059a3a44bd3b0ec23facd7f27a479324.tar.gz |
* interp/newaux.lisp: Bot / and /\ are gliphs.
* interp/sys-constants.boot ($OperatorFunctionNames): Include /\
and \/.
* interp/fnewmeta.lisp (|PARSE-ReductionOp|): Tidy.
* interp/metalex.lisp (|PARSE-OperatorFunctionName|): Likewise.
* algebra/boolean.spad.pamphlet (PropositionalLogic): Use plain
syntax for operators.
(Logic): Likewise.
(Boolean): Likewise.
(KleeneTrivalentLogic): Likewise.
Diffstat (limited to 'src/interp/metalex.lisp')
-rw-r--r-- | src/interp/metalex.lisp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/metalex.lisp b/src/interp/metalex.lisp index f89ebf6e..18183d0d 100644 --- a/src/interp/metalex.lisp +++ b/src/interp/metalex.lisp @@ -637,9 +637,10 @@ as keywords.") (defun-parse-token ARGUMENT-DESIGNATOR) (defun |PARSE-OperatorFunctionName| () - (let ((tok (match-current-token 'keyword))) + (let ((tok (or (match-current-token 'keyword) + (match-current-token 'gliph)))) (when (and tok (member (token-symbol tok) |$OperatorFunctionNames|)) - (Push-Reduction 'IDENTIFIER-TOKEN + (Push-Reduction '|PARSE-OperatorFunctionName| (copy-tree (token-symbol tok))) (action (advance-token))))) |