scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(assert ... <caller>)

This commit is contained in:
Rolf-Thomas Happe 2003-04-23 17:23:39 +00:00
parent c7e5b8e20a
commit 746040e917
1 changed files with 20 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/image-info/imxize.scm
View File

@ -20,7 +20,7 @@
(delay '()))))) (delay '())))))
(define (segment-byte-stream bs start end) (define (segment-byte-stream bs start end)
(assert (<= start end)) (assert (<= start end) segment-byte-stream)
(let* ((bv (make-byte-vector (- end start) 0))) (let* ((bv (make-byte-vector (- end start) 0)))
(let loop ((i 0) (bs bs)) (let loop ((i 0) (bs bs))
(cond ((< i start) (cond ((< i start)