diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2022-02-04 10:41:44 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2022-02-04 11:12:28 +0100 |
| commit | 8e2e2ceb1745620bef318fc403b6dea2c590f318 (patch) | |
| tree | ecb04e47f3dcbe0e552f263b780546e90eb5268e /libguile/symbols.h | |
| parent | 2ebf0397075d6a557f18e45c9b0ed824be68808e (diff) | |
| download | guile-8e2e2ceb1745620bef318fc403b6dea2c590f318.tar.gz | |
Deprecate symbol properties.
* libguile/strings.c (scm_i_make_symbol): Remove 'props' argument. Use
3 words instead of 'scm_double_cell'.
* libguile/strings.h: Adjust accordingly.
* libguile/symbols.c (scm_i_str2symbol, scm_i_str2uninterned_symbol):
Likewise.
(scm_symbol_fref, scm_symbol_pref, scm_symbol_fset_x,
scm_symbol_pset_x): Move to...
* libguile/deprecated.c: ... here. Rewrite in terms of object
properties.
(symbol_function_slot, symbol_property_slot): New variables.
* libguile/symbols.h (SCM_SYMBOL_FUNC, SCM_SET_SYMBOL_FUNC)
(SCM_SYMBOL_PROPS, SCM_SET_SYMBOL_PROPS)
(scm_symbol_fref, scm_symbol_pref, scm_symbol_fset_x)
(scm_symbol_pset_x): Move to...
* libguile/deprecated.h: ... here. Mark declarations as 'SCM_DEPRECATED'.
* module/system/base/types.scm (cell->object): Remove 'props' field for
%TC7-SYMBOL.
* doc/ref/api-data.texi (Symbol Props): Remove.
* NEWS: Update.
Diffstat (limited to 'libguile/symbols.h')
| -rw-r--r-- | libguile/symbols.h | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/libguile/symbols.h b/libguile/symbols.h index e2a1d173f..e8bc3346f 100644 --- a/libguile/symbols.h +++ b/libguile/symbols.h @@ -1,7 +1,7 @@ #ifndef SCM_SYMBOLS_H #define SCM_SYMBOLS_H -/* Copyright 1995-1998,2000-2001,2003-2004,2006,2008,2010-2011,2018 +/* Copyright 1995-1998,2000-2001,2003-2004,2006,2008,2010-2011,2018,2022 Free Software Foundation, Inc. This file is part of Guile. @@ -80,10 +80,6 @@ SCM_SNARF_INIT(c_name = scm_from_utf8_symbol (scheme_name)) /* Older spellings; don't use in new code. */ #define SCM_SYMBOLP(x) (scm_is_symbol (x)) -#define SCM_SYMBOL_FUNC(x) (scm_symbol_fref (x)) -#define SCM_SET_SYMBOL_FUNC(x,f) (scm_symbol_fset_x (x, f)) -#define SCM_SYMBOL_PROPS(x) (scm_symbol_pref (x)) -#define SCM_SET_SYMBOL_PROPS(x,p) (scm_symbol_pset_x (x, p)) #define SCM_SYMBOL_HASH(x) (scm_i_symbol_hash (x)) #define SCM_SYMBOL_INTERNED_P(x) (scm_i_symbol_is_interned (x)) @@ -100,11 +96,6 @@ SCM_API SCM scm_symbol_to_string (SCM s); SCM_API SCM scm_string_to_symbol (SCM s); SCM_API SCM scm_string_ci_to_symbol (SCM s); -SCM_API SCM scm_symbol_fref (SCM s); -SCM_API SCM scm_symbol_pref (SCM s); -SCM_API SCM scm_symbol_fset_x (SCM s, SCM val); -SCM_API SCM scm_symbol_pset_x (SCM s, SCM val); - SCM_API SCM scm_symbol_hash (SCM s); SCM_API SCM scm_gensym (SCM prefix); |