Skip to content
Browse files

parser

  • Loading branch information...
1 parent d47c12a commit dd5bd3897d18d5802c5d11113e95720831662c17 @sile committed May 5, 2012
Showing with 8 additions and 1 deletion.
  1. +0 −1 plc/stdlib/io.lisp
  2. BIN plc/stdlib/parser.bc
  3. +8 −0 plc/stdlib/parser.lisp
View
1 plc/stdlib/io.lisp
@@ -39,4 +39,3 @@
(write-char nl (car port))
(write-char nl)))))
)
-
View
BIN plc/stdlib/parser.bc
Binary file not shown.
View
8 plc/stdlib/parser.lisp
@@ -0,0 +1,8 @@
+(begin
+ (define !parse-port (lambda (in)
+ in
+ ))
+
+ (define !parse-file (lambda (filepath)
+ (call-with-input-file filepath (lambda (in) (!parse-port in)))))
+ )

0 comments on commit dd5bd38

Please sign in to comment.
Something went wrong with that request. Please try again.