0
@@ -26,7 +26,8 @@ module BusScheme
0
   define 'now', primitive { Time.now }
0
   define 'regex', primitive { |r| Regexp.new(Regexp.escape(r)) }
0
 
0
-  define 'read', primitive { gets }
0
+  define 'read', primitive {|*args| args.empty? ? gets : File.read(args.first) }
0
+  # TODO: give read and write the same interface
0
   define 'write', primitive { |obj| puts obj.inspect; 0 }
0
   define 'display', primitive { |obj| puts obj }
0
   

0
@@ -1,5 +1,6 @@
0
 $LOAD_PATH << File.dirname(__FILE__)
0
 require 'test_helper'
0
+require 'stringio'
0
 
0
 class PrimitivesTest < Test::Unit::TestCase
0
   def test_test_framework
0
@@ -46,6 +47,18 @@ class PrimitivesTest < Test::Unit::TestCase
0
     assert_evals_to false, "(and #f (assert #f))"
0
     assert_evals_to true, "(or #t (assert #f))"
0
   end
0
+  
0
+  def test_read_with_filename_reads_file_into_a_string
0
+    filename = File.join(File.dirname(__FILE__), '..', 'COPYING')
0
+    assert_equal File.read(filename), eval!("(read \"#{filename}\")")
0
+  end
0
+
0
+  def test_read_without_filename_gets_from_stdin
0
+    $stdin = StringIO.new('gets test')
0
+    assert_equal 'gets test', eval!("(read)")
0
+  ensure
0
+    $stdin = STDIN
0
+  end
0
 
0
   def test_booleans
0
     assert_evals_to false, '#f'