diff options
Diffstat (limited to 'src/interp/fnewmeta.lisp')
| -rw-r--r-- | src/interp/fnewmeta.lisp | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/interp/fnewmeta.lisp b/src/interp/fnewmeta.lisp index 1abd09dc..43d7d3c5 100644 --- a/src/interp/fnewmeta.lisp +++ b/src/interp/fnewmeta.lisp @@ -813,7 +813,16 @@ NIL)))) (AND (MATCH-ADVANCE-STRING "}") (PUSH-REDUCTION '|PARSE-Enclosure| - (CONS '|brace| NIL)))))))) + (CONS '|brace| NIL)))))) + (AND (MATCH-ADVANCE-STRING "[|") + (MUST (AND (|PARSE-Statement|) + (MUST (MATCH-ADVANCE-STRING "|]")) + (PUSH-REDUCTION '|PARSE-Enclosure| + (CONS '|[\|\|]| + (CONS (POP-STACK-1) NIL)))))) + + + )) (DEFUN |PARSE-IntegerTok| () (PARSE-NUMBER)) |