mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

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

Browse source 
gsubr.c, gsubr.h, read.c, read.h, 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.
This commit is contained in:
Mikael Djurfeldt 1999-08-17 08:44:38 +00:00
parent 6ded69e17a
commit 7f2d92b126
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/backtrace.c
View file

@ -77,17 +77,17 @@ display_header (source, port)
SCM port;
{
SCM fname = (SCM_NIMP (source) && SCM_MEMOIZEDP (source)
? scm_source_property (source, scm_i_filename)
? scm_source_property (source, scm_sym_filename)
: SCM_BOOL_F);
if (SCM_NIMP (fname) && SCM_STRINGP (fname))
{
scm_prin1 (fname, port, 0);
scm_putc (':', port);
scm_intprint (SCM_INUM (scm_source_property (source, scm_i_line)) + 1,
scm_intprint (SCM_INUM (scm_source_property (source, scm_sym_line)) + 1,
10,
port);
scm_putc (':', port);
scm_intprint (SCM_INUM (scm_source_property (source, scm_i_column)) + 1,
scm_intprint (SCM_INUM (scm_source_property (source, scm_sym_column)) + 1,
10,
port);
}
@ -400,7 +400,7 @@ display_frame (frame, nfield, indentation, sport, port, pstate)
{
SCM source = SCM_FRAME_SOURCE (frame);
SCM copy = (SCM_NIMP (source) && SCM_CONSP (source)
? scm_source_property (source, scm_i_copy)
? scm_source_property (source, scm_sym_copy)
: SCM_BOOL_F);
SCM umcopy = (SCM_NIMP (source) && SCM_MEMOIZEDP (source)
? scm_unmemoize (source)