aboutsummaryrefslogtreecommitdiff
path: root/src/boot/strap
diff options
context:
space:
mode:
Diffstat (limited to 'src/boot/strap')
-rw-r--r--src/boot/strap/parser.clisp15
1 files changed, 5 insertions, 10 deletions
diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp
index 00381889..e780b7a7 100644
--- a/src/boot/strap/parser.clisp
+++ b/src/boot/strap/parser.clisp
@@ -499,7 +499,7 @@
(T NIL)))))
(DEFUN |bpNamespace| ()
- (AND (|bpEqKey| 'NAMESPACE) (|bpName|)
+ (AND (|bpEqKey| 'NAMESPACE) (OR (|bpName|) (|bpDot|))
(|bpPush| (|%Namespace| (|bpPop1|)))))
(DEFUN |bpTypeAliasDefition| ()
@@ -627,16 +627,11 @@
(|bpPush| (|bfElt| (|bpPop2|) (|bpPop1|))))
(|bpPush| (|bfSuffixDot| (|bpPop1|))))))
-(DEFUN |bpNamedScope| ()
- (AND (|bpEqKey| 'NAMESPACE) (OR (|bpName|) (|bpDot|) (|bpTrap|))
- (|bpPush| (|%Namespace| (|bpPop1|)))))
-
(DEFUN |bpApplication| ()
- (OR (AND (|bpPrimary|) (|bpAnyNo| #'|bpSelector|)
- (OR (AND (|bpApplication|)
- (|bpPush| (|bfApplication| (|bpPop2|) (|bpPop1|))))
- T))
- (|bpNamedScope|)))
+ (AND (|bpPrimary|) (|bpAnyNo| #'|bpSelector|)
+ (OR (AND (|bpApplication|)
+ (|bpPush| (|bfApplication| (|bpPop2|) (|bpPop1|))))
+ T)))
(DEFUN |bpTyping| ()
(COND