readfile bug fixed: terminating at nil

Author: kimtg

arc.h

@@ -35,8 +35,6 @@
 #endif
 
 namespace arc {
-	constexpr auto VERSION = "0.34";
-
 	enum type {
 		T_NIL,
 		T_CONS,

library.h

@@ -1040,7 +1040,7 @@ by args passed in, so that future calls with the same inputs can save work."
 (def readfile (filename)
   (with (p (infile filename 'text)
     r nil)
-    (whilet e (read p) (= r (cons e r)))
+    (whiler e (read p '_eof) '_eof (= r (cons e r)))
     (rev r)))
 
 (def readfile1 (filename)

main.cpp

@@ -1,7 +1,9 @@
 #include "arc.h"
 
+constexpr auto VERSION = "0.35";
+
 void print_logo() {
-	printf("Arc++ %s\n", arc::VERSION);
+	printf("Arc++ %s\n", VERSION);
 }
 
 int main(int argc, char **argv)
@@ -24,7 +26,7 @@ int main(int argc, char **argv)
 			return 0;
 		}
 		else if (strcmp(opt, "-v") == 0) {
-			puts(arc::VERSION);
+			puts(VERSION);
 			return 0;
 		}
 	}