diff options
author | Andy Wingo <wingo@pobox.com> | 2011-05-05 14:09:29 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-05-05 14:09:29 +0200 |
commit | 891a1851a1e0e47560cf99cf76e9478d77e1a7db (patch) | |
tree | 8d00ba1b7f14b75005285d86abba3ea05b4f1767 /libguile/deprecated.h | |
parent | 1903eae4c9ab97b575dad4ab1f5cf05436d84ab3 (diff) | |
parent | eae2438d2bd1d9a0e0aaa052abb8b36b2d073850 (diff) | |
download | guile-891a1851a1e0e47560cf99cf76e9478d77e1a7db.tar.gz |
Merge remote-tracking branch 'origin/stable-2.0'
Diffstat (limited to 'libguile/deprecated.h')
-rw-r--r-- | libguile/deprecated.h | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/libguile/deprecated.h b/libguile/deprecated.h index 7deee359a..6693c6c73 100644 --- a/libguile/deprecated.h +++ b/libguile/deprecated.h @@ -752,6 +752,37 @@ SCM_DEPRECATED SCM scm_primitive_property_del_x (SCM prop, SCM obj); +/* {The old whash table interface} + * Deprecated, as the hash table interface is sufficient, and accessing + * handles of weak hash tables is no longer supported. + */ + +#define scm_whash_handle SCM + +SCM_DEPRECATED SCM scm_whash_get_handle (SCM whash, SCM key); +SCM_DEPRECATED int SCM_WHASHFOUNDP (SCM h); +SCM_DEPRECATED SCM SCM_WHASHREF (SCM whash, SCM handle); +SCM_DEPRECATED void SCM_WHASHSET (SCM whash, SCM handle, SCM obj); +SCM_DEPRECATED SCM scm_whash_create_handle (SCM whash, SCM key); +SCM_DEPRECATED SCM scm_whash_lookup (SCM whash, SCM obj); +SCM_DEPRECATED void scm_whash_insert (SCM whash, SCM key, SCM obj); + + + + +/* No need for a table for names, and the struct->class mapping is + maintained by GOOPS now. */ +#define SCM_STRUCT_TABLE_NAME(X) SCM_CAR (X) +#define SCM_SET_STRUCT_TABLE_NAME(X, NAME) SCM_SETCAR (X, NAME) +#define SCM_STRUCT_TABLE_CLASS(X) SCM_CDR (X) +#define SCM_SET_STRUCT_TABLE_CLASS(X, CLASS) SCM_SETCDR (X, CLASS) + +SCM_DEPRECATED SCM scm_struct_table; +SCM_DEPRECATED SCM scm_struct_create_handle (SCM obj); + + + + void scm_i_init_deprecated (void); #endif |