check that slurp works twice in a row. Fix rexx

kanaka · Jul 15, 2019 · 82bc78e · 82bc78e
1 parent 6fd3a0d
commit 82bc78e
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/rexx/core.rexx b/rexx/core.rexx
@@ -99,7 +99,7 @@ mal_readline: procedure expose values. /* mal_readline(prompt) */
   return new_nil()
 
 mal_slurp: procedure expose values. /* mal_read_string(filename) */
-  file_content = charin(obj_val(arg(1)), , 100000)
+  file_content = charin(obj_val(arg(1)), 1, 100000)
   return new_string(file_content)
 
 mal_lt: procedure expose values. /* mal_lt(a, b) */

diff --git a/tests/step6_file.mal b/tests/step6_file.mal
@@ -25,6 +25,10 @@
 (slurp "../tests/test.txt")
 ;=>"A line of text\n"
 
+;;; Load the same file twice.
+(slurp "../tests/test.txt")
+;=>"A line of text\n"
+
 ;; Testing load-file
 
 (load-file "../tests/inc.mal")