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

Let (%)read-delimited! ensure that the buffer is mutable.

This commit is contained in:
mainzelm 2005-10-18 14:58:11 +00:00
parent ec4ec22eac
commit 5f3c53746f
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scsh/rdelim.scm
View File

@ -191,7 +191,8 @@
(let-optionals args ((port (current-input-port)) (let-optionals args ((port (current-input-port))
(start 0) (start 0)
(end (string-length buf))) (end (string-length buf)))
(if (immutable? buf)
(error "Immutable buffer argument to %read-delimited!" buf))
(let ((delims (x->char-set delims))) (let ((delims (x->char-set delims)))
(let lp ((start start) (total 0)) (let lp ((start start) (total 0))
(receive (terminator num-read) (receive (terminator num-read)

1
scsh/scsh-package.scm
View File

@ -54,6 +54,7 @@
(define-structure delimited-readers delimited-readers-interface (define-structure delimited-readers delimited-readers-interface
(open scheme (open scheme
byte-vectors byte-vectors
(subset primitives (immutable?))
signals ; ERROR signals ; ERROR
let-opt let-opt
receiving receiving