summaryrefslogtreecommitdiffstats
path: root/byte.c
diff options
context:
space:
mode:
authorThomas Bushnell <tb@debian.org>2006-04-26 23:01:39 -0700
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:32 -0800
commit20402610bf881f67b22eb1600340d8284556ae56 (patch)
tree6a19e5a1b2cc22dccd1003787a70b751f7da4763 /byte.c
parent5846f77421a975897a31d6fbf3f520aab385cea3 (diff)
parentae2b295c7deaf2d7c18ad1ed9b6050970e56bae7 (diff)
downloadscm-20402610bf881f67b22eb1600340d8284556ae56.tar.gz
scm-20402610bf881f67b22eb1600340d8284556ae56.zip
Import Debian changes 5e2-1debian/5e2-1
scm (5e2-1) unstable; urgency=low * New upstream release. * Change to continue.h from version 5e1-2 repeated here.
Diffstat (limited to 'byte.c')
-rw-r--r--byte.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/byte.c b/byte.c
index 457d878..416c78f 100644
--- a/byte.c
+++ b/byte.c
@@ -131,7 +131,7 @@ SCM scm_write_byte(chr, port)
SCM chr, port;
{
int k = INUM(chr);
- if UNBNDP(port) port = cur_outp;
+ if (UNBNDP(port)) port = cur_outp;
else ASRTER(NIMP(port) && OPOUTPORTP(port), port, ARG2, s_write_byte);
ASRTER(INUMP(chr) && 0 <= k && k <= 255, chr, ARG1, s_write_byte);
lputc(k, port);
@@ -142,7 +142,7 @@ SCM scm_read_byte(port)
SCM port;
{
int c;
- if UNBNDP(port) port = cur_inp;
+ if (UNBNDP(port)) port = cur_inp;
ASRTER(NIMP(port) && OPINPORTP(port), port, ARG1, s_read_byte);
c = lgetc(port);
if (EOF==c) return EOF_VAL;
@@ -173,7 +173,7 @@ SCM scm_substring_read(sstr, start, args)
long ans = 0;
/* An ungetc before an fread will not work on some systems if setbuf(0),
so we read one element char by char. */
- if CRDYP(port) {
+ if (CRDYP(port)) {
CHARS(sstr)[start] = lgetc(port);
start += 1;
len -= 1;