diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-06-25 00:55:36 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-06-25 00:55:36 +0000 |
commit | 7862b07e4b7cd8f0f754a96955ab87f217328487 (patch) | |
tree | dec7f889af1ad227019ab97e2f27542611245db5 /libguile/srcprop.c | |
parent | 5843e5c98888a6b90d87a39894f42cd76e2be09c (diff) | |
download | guile-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.c | 6 |
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 |