summaryrefslogtreecommitdiff
path: root/libguile/srcprop.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2001-06-25 00:55:36 +0000
committerMarius Vollmer <mvo@zagadka.de>2001-06-25 00:55:36 +0000
commit7862b07e4b7cd8f0f754a96955ab87f217328487 (patch)
treedec7f889af1ad227019ab97e2f27542611245db5 /libguile/srcprop.c
parent5843e5c98888a6b90d87a39894f42cd76e2be09c (diff)
downloadguile-7862b07e4b7cd8f0f754a96955ab87f217328487.tar.gz
(scm_srcprops_to_plist): Renamed from scm_t_srcpropso_plist. See the
big type renaming.
Diffstat (limited to 'libguile/srcprop.c')
-rw-r--r--libguile/srcprop.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/srcprop.c b/libguile/srcprop.c
index 25c65e72a..697698298 100644
--- a/libguile/srcprop.c
+++ b/libguile/srcprop.c
@@ -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