diff options
Diffstat (limited to 'eval.c')
| -rw-r--r-- | eval.c | 36 |
1 files changed, 18 insertions, 18 deletions
@@ -356,7 +356,7 @@ static void debug_env_warn(fnam, line, what) { lputs(fnam, cur_errp); lputc(':', cur_errp); - intprint(line+0L, 10, cur_errp); + scm_intprint(line+0L, 10, cur_errp); lputs(": unprotected ", cur_errp); lputs(what, cur_errp); lputs(" of ecache value\n", cur_errp); @@ -415,7 +415,7 @@ SCM *ilookup(iloc) /* shortcut the two most common cases. */ if (iloc==MAKILOC(0, 0)) return &CAR(CAR(er)); if (iloc==MAKILOC(0, 1)) return &CAR(CDR(CAR(er))); - for(;0 != ir;--ir) er = CDR(er); + for (;0 != ir;--ir) er = CDR(er); eloc = &CAR(er); for (ir = IDIST(iloc); 0 != ir; --ir) eloc = &CDR(*eloc); @@ -436,7 +436,7 @@ SCM *farlookup(farloc) return &CAR(CAR(er)); } er = CAR(er); - for(--ir;0 != ir;--ir) er = CDR(er); + for (--ir;0 != ir;--ir) er = CDR(er); if (IM_FARLOC_CDR==CAR(farloc)) return &CDR(er); return &CAR(CDR(er)); } @@ -813,13 +813,13 @@ static void ecache_undefs(x) SCM x; { static SCM argv[10] = {UNDEFINED, UNDEFINED, UNDEFINED, - UNDEFINED, UNDEFINED, UNDEFINED, + UNDEFINED, UNDEFINED, UNDEFINED, UNDEFINED, UNDEFINED, UNDEFINED, UNDEFINED}; int imax = sizeof(argv)/sizeof(SCM); int i = 0; - + scm_env_tmp = EOL; while NIMP(x) { if (imax==i) { @@ -1390,7 +1390,7 @@ static SCM iqq(form) long i = LENGTH(form); SCM *data = VELTS(form); tmp = EOL; - for(;--i >= 0;) tmp = cons(data[i], tmp); + for (;--i >= 0;) tmp = cons(data[i], tmp); return vector(iqq(tmp)); } if (NCONSP(form)) return form; @@ -1413,9 +1413,9 @@ static SCM m_iqq(form, depth, env, ctxt) long i = LENGTH(form); SCM *data = VELTS(form); tmp = EOL; - for(;--i >= 0;) tmp = cons(data[i], tmp); + for (;--i >= 0;) tmp = cons(data[i], tmp); tmp = m_iqq(tmp, depth, env, ctxt); - for(i = 0; i < LENGTH(form); i++) { + for (i = 0; i < LENGTH(form); i++) { data[i] = CAR(tmp); tmp = CDR(tmp); } @@ -2219,7 +2219,7 @@ static SCM ceval_1(x) EXTEND_VALENV; x = CDR(CDR(x)); while (proc = CAR(x), FALSEP(EVALCAR(proc))) { - for(proc = CAR(CDR(x));NIMP(proc);proc = CDR(proc)) { + for (proc = CAR(CDR(x));NIMP(proc);proc = CDR(proc)) { arg1 = CAR(proc); /* body */ SIDEVAL_1(arg1); } @@ -2872,7 +2872,7 @@ SCM nconc2copy(lst) #endif last = CAR(*lloc); *lloc = EOL; - for(; NIMP(last); last=CDR(last)) { + for (; NIMP(last); last=CDR(last)) { *lloc = cons(CAR(last), EOL); lloc = &CDR(*lloc); } @@ -2886,7 +2886,7 @@ SCM scm_cp_list(lst, minlen) { SCM res, *lloc = &res; res = EOL; - for(; NIMP(lst) && CONSP(lst); lst = CDR(lst)) { + for (; NIMP(lst) && CONSP(lst); lst = CDR(lst)) { *lloc = cons(CAR(lst), EOL); lloc = &CDR(*lloc); minlen--; @@ -2900,7 +2900,7 @@ SCM scm_v2lst(n, v, end) SCM *v, end; { SCM res = end; - for(n--; n >= 0; n--) res = cons(v[n], res); + for (n--; n >= 0; n--) res = cons(v[n], res); return res; } SCM apply(proc, arg1, args) @@ -3214,7 +3214,7 @@ static int prinprom(exp, port, writing) lputs("#<promise", port); if ((2L<<16) & CAR(exp)) lputc('*', port); lputc(' ', port); - iprin1(CDR(exp), port, writing); + scm_iprin1(CDR(exp), port, writing); lputc('>', port); return !0; } @@ -3312,7 +3312,7 @@ static int prinmacro(exp, port, writing) } if (MAC_TYPE(exp) & MAC_MEMOIZING) lputc('!', port); lputc(' ', port); - iprin1(CDR(exp), port, writing); + scm_iprin1(CDR(exp), port, writing); lputc('>', port); return !0; } @@ -3322,8 +3322,8 @@ static int prinenv(exp, port, writing) int writing; { lputs("#<environment ", port); - intprint((long)exp, -16, port); - /* iprin1(CDR(exp), port, writing); */ + scm_intprint((long)exp, -16, port); + /* scm_iprin1(CDR(exp), port, writing); */ lputc('>', port); return !0; } @@ -3336,9 +3336,9 @@ static int prinid(exp, port, writing) SCM s = IDENT_PARENT(exp); while (M_IDENTP(s)) s = IDENT_PARENT(s); lputs("#<id ", port); - iprin1(s, port, writing); + scm_iprin1(s, port, writing); lputc(':', port); - intprint((long)exp, -16, port); + scm_intprint((long)exp, -16, port); lputc('>', port); return !0; } |