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

(scm_srcprops_to_plist): Renamed from scm_t_srcpropso_plist. See the

Browse source 
big type renaming.
This commit is contained in:
Marius Vollmer 2001-06-25 00:55:36 +00:00
parent 5843e5c988
commit 7862b07e4b
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/srcprop.c
View file

@ -112,7 +112,7 @@ srcprops_print (SCM obj, SCM port, scm_print_state *pstate)
int writingp = SCM_WRITINGP (pstate);
scm_puts ("#<srcprops ", port);
SCM_SET_WRITINGP (pstate, 1);
scm_iprin1 (scm_t_srcpropso_plist (obj), port, pstate);
scm_iprin1 (scm_srcprops_to_plist (obj), port, pstate);
SCM_SET_WRITINGP (pstate, writingp);
scm_putc ('>', port);
return 1;
@ -154,7 +154,7 @@ scm_make_srcprops (long line, int col, SCM filename, SCM copy, SCM plist)
SCM
scm_t_srcpropso_plist (SCM obj)
scm_srcprops_to_plist (SCM obj)
{
SCM plist = SRCPROPPLIST (obj);
if (!SCM_UNBNDP (SRCPROPCOPY (obj)))
@ -182,7 +182,7 @@ SCM_DEFINE (scm_source_properties, "source-properties", 1, 0, 0,
#endif
p = scm_hashq_ref (scm_source_whash, obj, SCM_BOOL_F);
if (SRCPROPSP (p))
return scm_t_srcpropso_plist (p);
return scm_srcprops_to_plist (p);
return SCM_EOL;
}
#undef FUNC_NAME

2
libguile/srcprop.h
View file

@ -137,7 +137,7 @@ extern SCM scm_sym_breakpoint;
extern SCM scm_t_srcpropso_plist (SCM obj);
extern SCM scm_srcprops_to_plist (SCM obj);
extern SCM scm_make_srcprops (long line, int col, SCM fname, SCM copy, SCM plist);
extern SCM scm_source_property (SCM obj, SCM key);
extern SCM scm_set_source_property_x (SCM obj, SCM key, SCM datum);