Fixed bug in buf-fill

diff --git a/Makefile b/Makefile
index eb284bd81d7c913345c19d0518f727d39dbce8d8..c5ad55ad41940236e2a864a772119f7d06197dd4 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -38,7 +38,7 @@ TEST_OBJS = $(TEST_FILES:%.$(TEST_EXT)=%.o)
 # Compiler and Linker Options
 #----------------------------
 CSC = csc
-CSCFLAGS = -c -explicit-use
+CSCFLAGS = -c
 
 # Build Rules
 #------------

diff --git a/source/buf.scm b/source/buf.scm
index 2fcf7e08ba7163abe7217bda7ec9505cf5d103cc..cb216341fae296b797b39ce586c0565948bc2f3b 100644 (file)
--- a/source/buf.scm
+++ b/source/buf.scm
@@ -1,4 +1,7 @@
-(declare (unit buf))
+(declare (unit buf)
+         (uses library))
+
+(use vector-lib)
 
 (define-record buf
   src
@@ -49,7 +52,8 @@
 (define (buf-fill b n)
   (if (buf? b)
     (let loop ((i 0))
-      ((buf-ldfn b))
+      (buf-data-set!
+        (vector-append (buf-data b) ((buf-ldfn b))))
       (if (< i n) (loop (+ i 1))))))
 
 (define (buf-lookahead b n)