aboutsummaryrefslogtreecommitdiff
path: root/src/boot/strap/parser.clisp
diff options
context:
space:
mode:
authorGabriel Dos Reis <GabrielDosReis@users.noreply.github.com>2022-08-21 13:01:37 -0700
committerGitHub <noreply@github.com>2022-08-21 13:01:37 -0700
commit0f612f581a6d58a4d3ceed0ade26e04681b32e13 (patch)
tree3ad3907873f66a5d9bc463328e5817db0ff83e6e /src/boot/strap/parser.clisp
parent3dc479ae544db8bc9224f183f33cb3e16fe2daac (diff)
downloadopen-axiom-0f612f581a6d58a4d3ceed0ade26e04681b32e13.tar.gz
Boot parser: Remove useless AST functions (#17)
A couple of the Boot AST building functions are identity functions. Remove to reduce obfuscation.
Diffstat (limited to 'src/boot/strap/parser.clisp')
-rw-r--r--src/boot/strap/parser.clisp10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp
index 7bf31b92..b55ddd35 100644
--- a/src/boot/strap/parser.clisp
+++ b/src/boot/strap/parser.clisp
@@ -183,7 +183,7 @@
(COND
((AND (FUNCALL |f| |ps|)
(OR (|bpEqKey| |ps| 'CBRACK) (|bpBrackTrap| |ps| |a|)))
- (|bpPush| |ps| (|bfBracket| (|bpPop1| |ps|))))
+ (|bpPush| |ps| (|bpPop1| |ps|)))
((|bpEqKey| |ps| 'CBRACK) (|bpPush| |ps| NIL))
(T (|bpBrackTrap| |ps| |a|))))
(T NIL)))))
@@ -194,7 +194,7 @@
(COND ((|bpEqKey| |ps| 'BACKTAB) T)
((AND (FUNCALL |f| |ps|)
(OR (|bpEqKey| |ps| 'BACKTAB) (|bpPileTrap| |ps|)))
- (|bpPush| |ps| (|bfPile| (|bpPop1| |ps|))))
+ (|bpPush| |ps| (|bpPop1| |ps|)))
(T NIL)))
(T NIL)))
@@ -387,7 +387,7 @@
(COND (|done| (RETURN NIL))
(T
(SETQ |found|
- (LET ((#1=#:G393
+ (LET ((#1=#:G370
(CATCH :OPEN-AXIOM-CATCH-POINT (FUNCALL |f| |ps|))))
(COND
((AND (CONSP #1#)
@@ -932,7 +932,7 @@
(|bpPush| |ps| (|bfAtScope| (|bpPop2| |ps|) (|bpPop1| |ps|))))
(T
(AND (|bpEqKey| |ps| 'DO) (|bpRequire| |ps| #'|bpAssign|)
- (|bpPush| |ps| (|bfDo| (|bpPop1| |ps|)))))))
+ (|bpPush| |ps| (|bpPop1| |ps|))))))
(DEFUN |bpReturn| (|ps|)
(OR
@@ -1411,7 +1411,7 @@
(SETQ |op| (|enclosingFunction| (|parserLoadUnit| |ps|)))
(SETQ |varno| (|parserGensymSequenceNumber| |ps|))
(UNWIND-PROTECT
- (LET ((#1=#:G394
+ (LET ((#1=#:G371
(CATCH :OPEN-AXIOM-CATCH-POINT
(PROGN
(SETF (|enclosingFunction| (|parserLoadUnit| |ps|)) NIL)