prepare for later

[jackhill/mal.git] / plsql / step8_macros.sql

diff --git a/plsql/step8_macros.sql b/plsql/step8_macros.sql
index cee72aa..089ad44 100644 (file)
--- a/plsql/step8_macros.sql
+++ b/plsql/step8_macros.sql
@@ -323,7 +323,7 @@ BEGIN
 
     -- core.mal: defined using the language itself
     line := REP('(def! not (fn* (a) (if a false true)))');
-    line := REP('(def! load-file (fn* (f) (eval (read-string (str "(do " (slurp f) ")")))))');
+    line := REP('(def! load-file (fn* (f) (eval (read-string (str "(do " (slurp f) "\nnil)")))))');
     line := REP('(defmacro! cond (fn* (& xs) (if (> (count xs) 0) (list ''if (first xs) (if (> (count xs) 1) (nth xs 1) (throw "odd number of forms to cond")) (cons ''cond (rest (rest xs)))))))');
 
     IF argv.COUNT() > 0 THEN