(assert ... <caller>)

2003-04-23 17:23:39 +00:00 · 2003-04-23 17:23:39 +00:00 · 746040e917
parent c7e5b8e20a
commit 746040e917
1 changed files with 20 additions and 20 deletions
--- a/scsh/image-info/imxize.scm
+++ b/scsh/image-info/imxize.scm
@ -20,7 +20,7 @@
          (delay '())))))

 (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 loop ((i 0) (bs bs))
      (cond ((< i start)