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	508	int
509	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	512	if((s->fd == -1) != (mode == IOS_BUF_MEM))
513		− return -1;
	513	+ return 0;
514	514	s->bm = mode;
515	515	return 0;
516	516	}

test/io.sl+1−1

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