io-buffer-mode!: ignore on in-memory buffers instead of throwing an error

Sigrid Solveig Haflínudóttir committed 3 months ago

Commit d9ec5a41 parent bddf6c82 files · +3 −3Browse files

Unified · Split

2 files

src/ios.c +2 −2
test/io.sl +1 −1

src/ios.c+2−2

@@ -508,9 +508,9 @@ ios_setbuf(ios s, u8int buf, usize size, bool own) · 507 unmodified lines
508	int	508	int
509	ios_bufmode(ios *s, ios_buf_mode mode)	509	ios_bufmode(ios *s, ios_buf_mode mode)
510	{	510	{
511	// no fd; can only do mem-only buffering	511	// no fd; can only do mem-only buffering - ignore
512	if((s->fd == -1) != (mode == IOS_BUF_MEM))	512	if((s->fd == -1) != (mode == IOS_BUF_MEM))
513	return -1;	513	return 0;
514	s->bm = mode;	514	s->bm = mode;
515	return 0;	515	return 0;
516	}	516	}

test/io.sl+1−1

@@ -178,7 +178,7 @@ · 177 unmodified lines
178	(assert-fail (io-buffer-mode!))	178	(assert-fail (io-buffer-mode!))
179	(assert-fail (io-buffer-mode! f))	179	(assert-fail (io-buffer-mode! f))
180	(assert-fail (io-buffer-mode! f 'blah))	180	(assert-fail (io-buffer-mode! f 'blah))
181	(assert-fail (io-buffer-mode! f :memory))	181	(io-buffer-mode! f :memory)
182	(assert (eq? (io-buffer-mode! f :block) :block))	182	(assert (eq? (io-buffer-mode! f :block) :block))
183	(assert (eq? (io-buffer-mode f) :block))	183	(assert (eq? (io-buffer-mode f) :block))
184	(assert (eq? (io-buffer-mode! f :line) :line))	184	(assert (eq? (io-buffer-mode! f :line) :line))