mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

* backtrace.c, debug.c, eval.c, eval.h, gsubr.c, read.c,

Browse source 
srcprop.c, srcprop.h (scm_i_filename, scm_i_line, scm_i_column,
scm_i_copy, scm_i_name, scm_i_lambda, scm_i_source, scm_i_more,
scm_i_procname, scm_i_dot, scm_i_arrow, scm_i_else, scm_i_unquote,
scm_i_uq_splicing, scm_i_apply, scm_i_enter_frame,
scm_i_apply_frame, scm_i_exit_frame, scm_i_trace, scm_i_quote,
scm_i_begin, scm_i_if, scm_i_and, scm_i_or, scm_i_case,
scm_i_cond, scm_i_letstar, scm_i_do, scm_i_quasiquote,
scm_i_define, scm_i_letrec, scm_i_let, scm_i_atapply,
scm_i_atcall_cc, scm_i_breakpoint): Renamed: Consequently use
scm_sym_ as prefix for symbols.

* debug.c (scm_i_proc, scm_i_args, scm_i_eval_args): Removed.
This commit is contained in:
Mikael Djurfeldt 1999-08-17 08:46:04 +00:00
parent 7f2d92b126
commit 63c51b9a54
1 changed files with 14 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

32
libguile/debug.c
View file

@ -1,4 +1,4 @@
/* Debugging extensions for Guile
/* Debugging extensions for Guile
* Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation
*
* This program is free software; you can redistribute it and/or modify
@ -133,9 +133,8 @@ scm_with_traps (SCM thunk)
}
static SCM scm_i_source, scm_i_more;
static SCM scm_i_proc, scm_i_args, scm_i_eval_args;
static SCM scm_i_procname;
static SCM scm_sym_source, scm_sym_dots;
static SCM scm_sym_procname;
/* {Memoized Source}
*/
@ -429,12 +428,12 @@ scm_procedure_name (proc)
return SCM_SNAME (proc);
default:
{
SCM name = scm_procedure_property (proc, scm_i_name);
SCM name = scm_procedure_property (proc, scm_sym_name);
#if 0
/* Source property scm_i_procname not implemented yet... */
SCM name = scm_source_property (SCM_CAR (SCM_CDR (SCM_CODE (proc))), scm_i_procname);
/* Source property scm_sym_procname not implemented yet... */
SCM name = scm_source_property (SCM_CAR (SCM_CDR (SCM_CODE (proc))), scm_sym_procname);
if (SCM_FALSEP (name))
name = scm_procedure_property (proc, scm_i_name);
name = scm_procedure_property (proc, scm_sym_name);
#endif
if (SCM_FALSEP (name) && SCM_CLOSUREP (proc))
name = scm_reverse_lookup (SCM_ENV (proc), proc);
@ -454,11 +453,11 @@ scm_procedure_source (proc)
case scm_tcs_closures:
{
SCM src;
src = scm_source_property (SCM_CDR (SCM_CODE (proc)), scm_i_copy);
src = scm_source_property (SCM_CDR (SCM_CODE (proc)), scm_sym_copy);
if (src != SCM_BOOL_F)
return scm_cons2 (scm_i_lambda, SCM_CAR (SCM_CODE (proc)), src);
return scm_cons2 (scm_sym_lambda, SCM_CAR (SCM_CODE (proc)), src);
src = SCM_CODE (proc);
return scm_cons (scm_i_lambda,
return scm_cons (scm_sym_lambda,
scm_unmemocopy (src,
SCM_EXTEND_ENV (SCM_CAR (src),
SCM_EOL,
@ -471,7 +470,7 @@ scm_procedure_source (proc)
#endif
/* It would indeed be a nice thing if we supplied source even for
built in procedures! */
return scm_procedure_property (proc, scm_i_source);
return scm_procedure_property (proc, scm_sym_source);
default:
scm_wta (proc, (char *) SCM_ARG1, s_procedure_source);
return 0;
@ -660,12 +659,9 @@ scm_init_debug ()
scm_tc16_debugobj = scm_make_smob_type_mfpe ("debug-object", 0,
NULL, NULL, prindebugobj, NULL);
scm_i_procname = SCM_CAR (scm_sysintern ("procname", SCM_UNDEFINED));
scm_i_more = SCM_CAR (scm_sysintern ("...", SCM_UNDEFINED));
scm_i_source = SCM_CAR (scm_sysintern ("source", SCM_UNDEFINED));
scm_i_proc = SCM_CAR (scm_sysintern ("proc", SCM_UNDEFINED));
scm_i_args = SCM_CAR (scm_sysintern ("args", SCM_UNDEFINED));
scm_i_eval_args = SCM_CAR (scm_sysintern ("eval-args", SCM_UNDEFINED));
scm_sym_procname = SCM_CAR (scm_sysintern ("procname", SCM_UNDEFINED));
scm_sym_dots = SCM_CAR (scm_sysintern ("...", SCM_UNDEFINED));
scm_sym_source = SCM_CAR (scm_sysintern ("source", SCM_UNDEFINED));
#ifdef GUILE_DEBUG
scm_sysintern ("SCM_IM_AND", SCM_IM_AND);