load-file fixed; change on load-file implementation to return last line expresion result, instead of nil

Author: jig

lib/core/header-load-file.lisp

@@ -2,5 +2,4 @@
     (eval
         (read-string
             (str
-                ";; $MODULE " (quote f) "\n"
-                "(do " (slurp f) "\nnilf)")))))
+                ";; $MODULE " (quote f) "\n(do " (slurp f) "\n)")))))

tests/step6_file.mal

@@ -40,7 +40,7 @@
 ;; Testing load-file
 
 (load-file "./tests/inc.mal")
-;=>nil
+;=>(fn (a) (do (+ 3 a)))
 (inc1 7)
 ;=>8
 (inc2 7)
@@ -110,7 +110,7 @@
 
 ;; Testing reading of large files
 (load-file "./tests/computations.mal")
-;=>nil
+;=>(fn [n] (do (if (<= n 1) n (+ (fib (- n 1)) (fib (- n 2))))))
 (sumdown 2)
 ;=>3
 (fib 2)
@@ -149,15 +149,15 @@
 
 ;; Testing comments in a file
 (load-file "./tests/incB.mal")
-;=>nil
+;=>(fn (a) (do (+ 5 a)))
 (inc4 7)
 ;=>11
 (inc5 7)
 ;=>12
 
 ;; Testing map literal across multiple lines in a file
 (load-file "./tests/incC.mal")
-;=>nil
+;=>{"a" 1}
 mymap
 ;=>{"a" 1}
 

tests/stepA_mal.mal

@@ -309,7 +309,7 @@
 
 ;; Loading sumdown from computations.mal
 (load-file "./tests/computations.mal")
-;=>nil
+;=>(fn [n] (do (if (<= n 1) n (+ (fib (- n 1)) (fib (- n 2))))))
 
 ;;
 ;; Testing time-ms function