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 | |
parent | 5843e5c98888a6b90d87a39894f42cd76e2be09c (diff) | |
download | guile-7862b07e4b7cd8f0f754a96955ab87f217328487.tar.gz |
(scm_srcprops_to_plist): Renamed from scm_t_srcpropso_plist. See the
big type renaming.
-rw-r--r-- | libguile/srcprop.c | 6 | ||||
-rw-r--r-- | libguile/srcprop.h | 2 |
2 files changed, 4 insertions, 4 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 diff --git a/libguile/srcprop.h b/libguile/srcprop.h index e1505c0e7..abfbc1709 100644 --- a/libguile/srcprop.h +++ b/libguile/srcprop.h @@ -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); |