2013-04-21: can read a file

can read a file

diff --git a/wisp.w b/wisp.w
--- a/wisp.w
+++ b/wisp.w
@@ -4,4 +4,19 @@
 ; Test
 
 display "Hello World!"
-newline
\ No newline at end of file
+newline
+
+let 
+    :
+        origfile 
+            open-file 
+                list-ref 
+                    command-line
+                    . 1
+                . "r"
+    let : : nextchar : read-char origfile
+        while : not : eof-object? nextchar
+            display nextchar
+            set! nextchar : read-char origfile
+
+newline