projects / mit-scheme.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 243e64f) | patch
Call close-textual-in/output-port, not close-in/output-port.
authorTaylor R Campbell <campbell@mumble.net>
Tue, 19 Dec 2017 14:15:22 +0000 (14:15 +0000)
committerTaylor R Campbell <campbell@mumble.net>
Tue, 19 Dec 2017 14:15:24 +0000 (14:15 +0000)
commitb91999543d9cb5be40a8289d0463c1a9ae689a88
tree417fa934dd278390f79328007aeeae73e647f2e0tree | snapshot
parent243e64fe3226a8c1fe274872768468a88413f578commit | diff
Call close-textual-in/output-port, not close-in/output-port.

Former is noop for non-input or non-output port; latter is error.

Fixes close-port on something that is only a textual input port or
only a textual output port.
src/runtime/port.scm diff | blob | history
MIT/GNU Scheme, Pucked