diff options
author | Thomas Bushnell <tb@debian.org> | 2006-04-26 23:01:39 -0700 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:32 -0800 |
commit | 20402610bf881f67b22eb1600340d8284556ae56 (patch) | |
tree | 6a19e5a1b2cc22dccd1003787a70b751f7da4763 /sc2.c | |
parent | 5846f77421a975897a31d6fbf3f520aab385cea3 (diff) | |
parent | ae2b295c7deaf2d7c18ad1ed9b6050970e56bae7 (diff) | |
download | scm-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 'sc2.c')
-rw-r--r-- | sc2.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -135,7 +135,7 @@ SCM strnullp(str) SCM str; { ASRTER(NIMP(str) && STRINGP(str), str, ARG1, s_strnullp); - if LENGTH(str) return BOOL_F; + if (LENGTH(str)) return BOOL_F; else return BOOL_T; } @@ -145,11 +145,11 @@ SCM appendb(args) { SCM arg; tail: - if NULLP(args) return EOL; + if (NULLP(args)) return EOL; arg = CAR(args); args = CDR(args); - if NULLP(args) return arg; - if NULLP(arg) goto tail; + if (NULLP(args)) return arg; + if (NULLP(arg)) goto tail; ASRTER(NIMP(arg) && CONSP(arg), arg, ARG1, s_appendb); CDR(last_pair(arg)) = appendb(args); return arg; |