Eatswap
/
DragonLisp
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix: remove constant

This commit is contained in:
Eatswap 2022-12-13 13:06:14 +08:00
parent b2393f935f
commit 29f7667a20
Signed by: Eatswap
GPG Key ID: BE661106A1F3FA0B
2 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
DragonLisp.y
View File

@ -189,7 +189,6 @@ S-Expr-var-op
var-op-tokens var-op-tokens
: DEFVAR { std::printf("Parsed var-op-tokens -> DEFVAR\n"); $$ = DragonLisp::Token::DEFVAR; } : DEFVAR { std::printf("Parsed var-op-tokens -> DEFVAR\n"); $$ = DragonLisp::Token::DEFVAR; }
| SETQ { std::printf("Parsed var-op-tokens -> SETQ\n"); $$ = DragonLisp::Token::SETQ; } | SETQ { std::printf("Parsed var-op-tokens -> SETQ\n"); $$ = DragonLisp::Token::SETQ; }
| DEFCONSTANT { std::printf("Parsed var-op-tokens -> DEFCONSTANT\n"); $$ = DragonLisp::Token::DEFCONSTANT; }
; ;
S-Expr-Lval-op S-Expr-Lval-op

2
sample.lisp
View File

@ -3,7 +3,7 @@
(setq x (- 3 6 9)) ;; x is -12 (setq x (- 3 6 9)) ;; x is -12
(print x) (print x)
(defconstant xconst (= (and 3 6 9) (or 9 6 3))) ;; xconst is T (defvar xconst (= (and 3 6 9) (or 9 6 3))) ;; xconst is T
(print xconst) (print xconst)
(pRiNt (pRiNt