diff options
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))))) |