diff options
| author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-19 10:04:31 +0000 |
|---|---|---|
| committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-06-19 10:04:31 +0000 |
| commit | 26a379b298783d7f62eaccac0ded924df543c3ca (patch) | |
| tree | 9aa527bbbafbaf116343f8584104be99ad487d7c /libguile/list.h | |
| parent | 7bd4fbe2de199a7570abb45220919aeb7a3744b5 (diff) | |
| download | guile-26a379b298783d7f62eaccac0ded924df543c3ca.tar.gz | |
* list.[ch] (scm_cons_star/cons*): Renamed from
scm_list_star/list*.
* list.[ch] (scm_list_star/list*): Provided as a deprecated alias
for scm_cons_star/cons*.
Diffstat (limited to 'libguile/list.h')
| -rw-r--r-- | libguile/list.h | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/libguile/list.h b/libguile/list.h index eca4f5c76..e484e434a 100644 --- a/libguile/list.h +++ b/libguile/list.h @@ -69,7 +69,7 @@ extern SCM scm_list_head (SCM lst, SCM k); extern SCM scm_listify (SCM elt, ...); extern SCM scm_list (SCM objs); -extern SCM scm_list_star (SCM arg, SCM objs); +extern SCM scm_cons_star (SCM arg, SCM objs); extern SCM scm_null_p (SCM x); extern SCM scm_list_p (SCM x); extern long scm_ilength (SCM sx); @@ -101,6 +101,14 @@ extern SCM scm_delv1_x (SCM item, SCM lst); extern SCM scm_delete1_x (SCM item, SCM lst); extern void scm_init_list (void); + + +#if (SCM_DEBUG_DEPRECATED == 0) + +#define scm_list_star scm_cons_star + +#endif /* SCM_DEBUG_DEPRECATED == 0 */ + #endif /* LISTH */ /* |