Edit logic in main to error if passed file could not be opened.

1 files changed, 4 insertions, 2 deletions

diff --git a/src/main.lisp b/src/main.lisp
index 1f0afdd..98176ec 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -43,9 +43,11 @@ _/_/                                  _/_/  "
       ;; complain about num arguments
       ((/= (length args) 1) (error "Wrong number of arguments."))
       ((not (util:asm-extension? file))
-       (error "The file is not an asm source code file, or it could not be opened."))
+       (error "The file is not an asm source code file."))
       (t (let ((tokens (lex:file->tokens file)))
-           (format t "~a" tokens)
+           (if tokens
+               (format t "~a" tokens)
+               (error "The file does not exist, or it could not be opened."))
            (format t "Nitimur in Vetitum~%"))))))