Update of /cvsroot/wisp/wisp/modules
In directory usw-pr-cvs1:/tmp/cvs-serv5537/modules
Modified Files:
block-port.wim
Log Message:
Made block-port.wim avoid |string-length| in favour of |length|.
Index: block-port.wim
===================================================================
RCS file: /cvsroot/wisp/wisp/modules/block-port.wim,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- block-port.wim 26 Aug 2002 16:18:17 -0000 1.13
+++ block-port.wim 7 Sep 2002 21:57:33 -0000 1.14
@@ -30,15 +30,15 @@
s
; if we read past end of file, the block might be shorter than asked
(begin
- (if (< (string-length s) block-size)
+ (if (< (length s) block-size)
(my ns (make-string block-size)
- (string-copy! ns 0 s 0 (string-length s))
+ (string-copy! ns 0 s 0 (length s))
(set! s ns)))
s))))
(friend (write-block bp index data)
(if (or (not (integer? index)) (negative? index))
(raise 'range index))
- (my delta (- block-size (string-length data))
+ (my delta (- block-size (length data))
(if (negative? delta)
(raise 'too-much-data data))
(seek port 'absolute (* index block-size))
|
