diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-12-14 17:08:25 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-12-14 17:08:25 +0000 |
commit | 5623a9b4590618773e7969b512850cd92bfd79ed (patch) | |
tree | 9c3a6cb6bd9f1fb65b70db25e53bca08aeecd50f /libguile/debug.c | |
parent | 763a67161fe240b5ccfa64bb6bcd14573a55b8c8 (diff) | |
download | guile-5623a9b4590618773e7969b512850cd92bfd79ed.tar.gz |
* guile-doc-snarf.awk: Removed.
* guile-doc-snarf.awk.in: Added.
* ports.c (s_scm_pt_member): Fixed validation.
* guile-doc-snarf.in (filename): Use basename in order to strip
away path.
* debug.c (scm_make_iloc, s_scm_proc_to_mem): Added missing
semicolon.
(scm_memcons, scm_memcons, mem_to_proc): Renamed function name
strings to new form.
* backtrace.c (set_print_params_x): Fixed GUILE_PROC macro.
* tags.h (SCM_UNBOUND): New iflag which is needed for some time to
mark the unboundness of a GOOPS slot. (Added now in order to
correct a oversight. Should probably be removed again and
replaced with SCM_UNDEFINED when the corresponding code in GOOPS
is rewritten.)
* print.c (scm_isymnames): Added printed representation for
SCM_UNBOUND.
* eval.c (SCM_CEVAL): Bugfix: Added check for unbound slot in
SCM_IM_SLOT_REF.
Diffstat (limited to 'libguile/debug.c')
-rw-r--r-- | libguile/debug.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/debug.c b/libguile/debug.c index 05ad8dab3..d88b055f0 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -286,7 +286,7 @@ GUILE_PROC (scm_make_iloc, "make-iloc", 3, 0, 0, #define FUNC_NAME s_scm_make_iloc { SCM_VALIDATE_INT(1,frame); - SCM_VALIDATE_INT(2,binding) + SCM_VALIDATE_INT(2,binding); return (SCM_ILOC00 + SCM_IFRINC * SCM_INUM (frame) + (SCM_NFALSEP (cdrp) ? SCM_ICDR : 0) @@ -312,7 +312,7 @@ GUILE_PROC (scm_memcons, "memcons", 2, 1, 0, { /*fixme* environments may be two different but equal top-level envs */ if (!SCM_UNBNDP (env) && SCM_MEMOIZED_ENV (car) != env) - scm_misc_error (s_memcons, + scm_misc_error (s_scm_memcons, "environment mismatch arg1 <-> arg3", scm_cons2 (car, env, SCM_EOL)); else @@ -322,7 +322,7 @@ GUILE_PROC (scm_memcons, "memcons", 2, 1, 0, if (SCM_NIMP (cdr) && SCM_MEMOIZEDP (cdr)) { if (!SCM_UNBNDP (env) && SCM_MEMOIZED_ENV (cdr) != env) - scm_misc_error (s_memcons, + scm_misc_error (s_scm_memcons, "environment mismatch arg2 <-> arg3", scm_cons2 (cdr, env, SCM_EOL)); else @@ -335,7 +335,7 @@ GUILE_PROC (scm_memcons, "memcons", 2, 1, 0, SCM_ASSERT (SCM_NULLP (env) || (SCM_NIMP (env) && SCM_CONSP (env)), env, SCM_ARG3, - s_make_iloc); + s_scm_make_iloc); return scm_make_memoized (scm_cons (car, cdr), env); } #undef FUNC_NAME @@ -350,7 +350,7 @@ GUILE_PROC (scm_mem_to_proc, "mem->proc", 1, 0, 0, env = SCM_MEMOIZED_ENV (obj); obj = SCM_MEMOIZED_EXP (obj); if (!(SCM_NIMP (obj) && SCM_CAR (obj) == SCM_IM_LAMBDA)) - scm_misc_error (s_mem_to_proc, + scm_misc_error (s_scm_mem_to_proc, "expected lambda expression", scm_cons (obj, SCM_EOL)); return scm_closure (SCM_CDR (obj), env); @@ -362,7 +362,7 @@ GUILE_PROC (scm_proc_to_mem, "proc->mem", 1, 0, 0, "") #define FUNC_NAME s_scm_proc_to_mem { - SCM_VALIDATE_CLOSURE(1,obj) + SCM_VALIDATE_CLOSURE (1, obj); return scm_make_memoized (scm_cons (SCM_IM_LAMBDA, SCM_CODE (obj)), SCM_ENV (obj)); } |