add builtins, add pretty printing for lists, fix erroneous symbol x not found for forms (define, lambda ...) add check for head->type == VT_SYMBOL on forms (so a string cannot be misinterpreted as a form symbol), move is_integer from lisp.y to lisp.h/lisp.c

1 files changed, 7 insertions, 7 deletions

diff --git a/lisp.l b/lisp.l
index 7a9eece..5ad5c57 100644
--- a/lisp.l
+++ b/lisp.l
@@ -7,14 +7,14 @@ int tcnt = 0;
 %}
 
 %%
-[[:space:]]+      { printf("%d: WHITESPACE\n", tcnt); /*ignore whitespace*/}
-"("             { printf("%d: LPAREN\n", ++tcnt); return LPAREN; }
-")"             { printf("%d: RPAREN\n", ++tcnt); return RPAREN; }
-"\."            { printf("%d: DOT\n", ++tcnt); return DOT; }
+[[:space:]]+      {  /*ignore whitespace*/}
+"("             {  return LPAREN; }
+")"             {  return RPAREN; }
+"\."            {  return DOT; }
 
 [+-]?([0-9]+|([0-9]*\.[0-9]+))([eE][-+]?[0-9]+)? {
                 yylval.dval = atof(yytext);
-                printf("%d: NUMBER: %f\n", ++tcnt, yylval.dval);
+                
                 return NUMBER;
                 }
 
@@ -27,13 +27,13 @@ int tcnt = 0;
                 str[len] = '\0';
 
                 yylval.strval = str;
-                printf("%d: STRING: \"%s\"\n", ++tcnt, yylval.strval);
+                
                 return STRING;
                 }
 
 [^[:space:]\"().]+ {
                 yylval.strval = strdup(yytext);
-                printf("%d: SYMBOL: %s\n", ++tcnt, yylval.strval);
+                
                 return SYMBOL;
                 }
 .               ; // do nothing