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 /module/system/base/types.scm | |
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 'module/system/base/types.scm')
-rw-r--r-- | module/system/base/types.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/system/base/types.scm b/module/system/base/types.scm index 418c9fed4..b63febff8 100644 --- a/module/system/base/types.scm +++ b/module/system/base/types.scm @@ -1,5 +1,5 @@ ;;; 'SCM' type tag decoding. -;;; Copyright (C) 2014, 2015, 2017, 2018 Free Software Foundation, Inc. +;;; Copyright (C) 2014, 2015, 2017, 2018, 2022 Free Software Foundation, Inc. ;;; ;;; This library is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU Lesser General Public License as published by @@ -397,7 +397,7 @@ using BACKEND." (address->inferior-struct address (- vtable-address %tc3-struct) backend)) - (((_ & #x7f = %tc7-symbol) buf hash props) + (((_ & #x7f = %tc7-symbol) buf hash) (match (cell->object buf backend) (($ <stringbuf> string) (string->symbol string)))) |