initialize all elements to 0; make work on R4RS

1 files changed, 9 insertions, 7 deletions

diff --git a/bf2s.scm b/bf2s.scm
index b865c70..751abd3 100644
--- a/bf2s.scm
+++ b/bf2s.scm
@@ -69,15 +69,17 @@
 
 (define (brainfuck->scheme-from-file filename)
   (brainfuck->scheme
-   (call-with-port (open-input-file filename)
-     (lambda (port)
-       (let loop ((str ""))
-         (if (eof-object? (peek-char port))
-             str
-             (loop (string-append str (read-line port)))))))))
+   (with-input-from-file filename
+     (letrec ((loop
+               (lambda (chars)
+                 (let ((next (read-char)))
+                   (if (eof-object? next)
+                       (list->string (reverse chars))
+                       (loop (cons next chars)))))))
+       (lambda () (loop '()))))))
 
 (define (execute scheme len)
-  ((eval scheme) (make-vector len) 0
+  ((eval scheme) (make-vector len 0) (inexact->exact (floor (/ len 2)))
                    (lambda (data dptr)
                      (display (list data dptr))
                      (newline))))