diff options
Diffstat (limited to 'src/main.lisp')
| -rw-r--r-- | src/main.lisp | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/main.lisp b/src/main.lisp index f6e5754..8a36a66 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -47,8 +47,14 @@ _/_/ _/_/ " (t (let ((tokens (lex:file->tokens file))) (if tokens (progn (pprint tokens) - (terpri)) + (terpri) + (format t "---~%")) (error "The file does not exist, or it could not be opened.~%")) + (if parse? + (let ((tokens (parse:tokens->ast tokens))) + (progn (pprint tokens) + (terpri) + (format t "---~%")))) (format t "Nitimur in Vetitum~%")))))) |