From b99be4933bcb850cbaf96f89750e925ecf2e8386 Mon Sep 17 00:00:00 2001
From: Felix Perktold <Felix.Perktold@student.uibk.ac.at>
Date: Tue, 23 Dec 2025 13:36:33 +0100
Subject: rename eq? to equal?, fix syntax error on empty newline

---
 lisp.y | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'lisp.y')

diff --git a/lisp.y b/lisp.y
index 5a39640..086ef93 100644
--- a/lisp.y
+++ b/lisp.y
@@ -8,21 +8,21 @@ int yyerror(const char *s);
 %}
 
 %union {
-        int ival;
         double dval;
         const char *strval;
         value *val;
 }
 %token <dval> NUMBER
 %token <strval> STRING SYMBOL
-%token <ival> LPAREN RPAREN DOT QUOTE
+%token LPAREN RPAREN DOT QUOTE NLINE
 
 %type <val> expr atom list list_items
 
 %start exprs
 
 %%
-exprs: expr
+exprs: /* nothing */
+     | expr
       {
         value *v = eval(global_env, $1);
         printf(";> ");
@@ -38,7 +38,8 @@ exprs: expr
 expr:  atom
      | list
      | LPAREN expr DOT expr RPAREN { $$ = cons($2, $4); }
-     | QUOTE expr { $$ = cons(make_symbol("quote"), cons($2, make_nil())); };
+     | QUOTE expr { $$ = cons(make_symbol("quote"), cons($2, make_nil())); }
+     | NLINE { $$ = make_nil(); };
 
 list: LPAREN list_items RPAREN { $$ = $2; };
 
-- 
cgit v1.2.3