aboutsummaryrefslogtreecommitdiff
path: root/src/interp/fnewmeta.lisp.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/fnewmeta.lisp.pamphlet')
-rw-r--r--src/interp/fnewmeta.lisp.pamphlet4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/interp/fnewmeta.lisp.pamphlet b/src/interp/fnewmeta.lisp.pamphlet
index 29c55dd3..be041a6a 100644
--- a/src/interp/fnewmeta.lisp.pamphlet
+++ b/src/interp/fnewmeta.lisp.pamphlet
@@ -296,6 +296,7 @@ IteratorTail: ('repeat' <Iterator*>! / Iterator*) ;
<<*>>=
<<license>>
+(IMPORT-MODULE "parsing")
(IN-PACKAGE "BOOT" )
@@ -305,6 +306,9 @@ IteratorTail: ('repeat' <Iterator*>! / Iterator*) ;
(DEFPARAMETER DEFINITION_NAME NIL)
(DEFPARAMETER LABLASOC NIL)
+(defun |isTokenDelimiter| ()
+ (MEMBER (CURRENT-SYMBOL) '(\) END\_UNIT NIL)))
+
(DEFUN |PARSE-NewExpr| ()
(OR (AND (MATCH-STRING ")") (ACTION (|processSynonyms|))