mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 20:20:24 +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 * Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation
* *
* This program is free software; you can redistribute it and/or modify * 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_sym_source, scm_sym_dots;
static SCM scm_i_proc, scm_i_args, scm_i_eval_args; static SCM scm_sym_procname;
static SCM scm_i_procname;
/* {Memoized Source} /* {Memoized Source}
*/ */
@ -429,12 +428,12 @@ scm_procedure_name (proc)
return SCM_SNAME (proc); return SCM_SNAME (proc);
default: default:
{ {
SCM name = scm_procedure_property (proc, scm_i_name); SCM name = scm_procedure_property (proc, scm_sym_name);
#if 0 #if 0
/* Source property scm_i_procname not implemented yet... */ /* Source property scm_sym_procname not implemented yet... */
SCM name = scm_source_property (SCM_CAR (SCM_CDR (SCM_CODE (proc))), scm_i_procname); SCM name = scm_source_property (SCM_CAR (SCM_CDR (SCM_CODE (proc))), scm_sym_procname);
if (SCM_FALSEP (name)) if (SCM_FALSEP (name))
name = scm_procedure_property (proc, scm_i_name); name = scm_procedure_property (proc, scm_sym_name);
#endif #endif
if (SCM_FALSEP (name) && SCM_CLOSUREP (proc)) if (SCM_FALSEP (name) && SCM_CLOSUREP (proc))
name = scm_reverse_lookup (SCM_ENV (proc), proc); name = scm_reverse_lookup (SCM_ENV (proc), proc);
@ -454,11 +453,11 @@ scm_procedure_source (proc)
case scm_tcs_closures: case scm_tcs_closures:
{ {
SCM src; 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) 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); src = SCM_CODE (proc);
return scm_cons (scm_i_lambda, return scm_cons (scm_sym_lambda,
scm_unmemocopy (src, scm_unmemocopy (src,
SCM_EXTEND_ENV (SCM_CAR (src), SCM_EXTEND_ENV (SCM_CAR (src),
SCM_EOL, SCM_EOL,
@ -471,7 +470,7 @@ scm_procedure_source (proc)
#endif #endif
/* It would indeed be a nice thing if we supplied source even for /* It would indeed be a nice thing if we supplied source even for
built in procedures! */ built in procedures! */
return scm_procedure_property (proc, scm_i_source); return scm_procedure_property (proc, scm_sym_source);
default: default:
scm_wta (proc, (char *) SCM_ARG1, s_procedure_source); scm_wta (proc, (char *) SCM_ARG1, s_procedure_source);
return 0; return 0;
@ -660,12 +659,9 @@ scm_init_debug ()
scm_tc16_debugobj = scm_make_smob_type_mfpe ("debug-object", 0, scm_tc16_debugobj = scm_make_smob_type_mfpe ("debug-object", 0,
NULL, NULL, prindebugobj, NULL); NULL, NULL, prindebugobj, NULL);
scm_i_procname = SCM_CAR (scm_sysintern ("procname", SCM_UNDEFINED)); scm_sym_procname = SCM_CAR (scm_sysintern ("procname", SCM_UNDEFINED));
scm_i_more = SCM_CAR (scm_sysintern ("...", SCM_UNDEFINED)); scm_sym_dots = SCM_CAR (scm_sysintern ("...", SCM_UNDEFINED));
scm_i_source = SCM_CAR (scm_sysintern ("source", SCM_UNDEFINED)); scm_sym_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));
#ifdef GUILE_DEBUG #ifdef GUILE_DEBUG
scm_sysintern ("SCM_IM_AND", SCM_IM_AND); scm_sysintern ("SCM_IM_AND", SCM_IM_AND);