diff --git a/DragonLisp.y b/DragonLisp.y index 4af39e3..92fc121 100644 --- a/DragonLisp.y +++ b/DragonLisp.y @@ -189,7 +189,6 @@ S-Expr-var-op var-op-tokens : DEFVAR { std::printf("Parsed var-op-tokens -> DEFVAR\n"); $$ = DragonLisp::Token::DEFVAR; } | 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 diff --git a/sample.lisp b/sample.lisp index 161d432..9deea1c 100644 --- a/sample.lisp +++ b/sample.lisp @@ -3,7 +3,7 @@ (setq x (- 3 6 9)) ;; x is -12 (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