diff options
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; |