fix error message in put
This commit is contained in:
parent
068242a833
commit
2c53d1f8ed
2
C/iopreds.c
Normal file → Executable file
2
C/iopreds.c
Normal file → Executable file
@ -4525,7 +4525,7 @@ p_put (void)
|
|||||||
return (FALSE);
|
return (FALSE);
|
||||||
if (Stream[sno].status & Binary_Stream_f) {
|
if (Stream[sno].status & Binary_Stream_f) {
|
||||||
UNLOCK(Stream[sno].streamlock);
|
UNLOCK(Stream[sno].streamlock);
|
||||||
Yap_Error(PERMISSION_ERROR_OUTPUT_BINARY_STREAM, ARG1, "get0/2");
|
Yap_Error(PERMISSION_ERROR_OUTPUT_BINARY_STREAM, ARG1, "put/2");
|
||||||
return(FALSE);
|
return(FALSE);
|
||||||
}
|
}
|
||||||
Stream[sno].stream_wputc (sno, (int) IntegerOfTerm (Deref (ARG2)));
|
Stream[sno].stream_wputc (sno, (int) IntegerOfTerm (Deref (ARG2)));
|
||||||
|
Reference in New Issue
Block a user