mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 22:10:21 +02:00
Code Activity

* Added SCM_STRING_CHARS and SCM_SYMBOL_CHARS in order to, in the long run,

Browse source 
get rid of SCM_CHARS, which is shared between a large number of types, and
  thus makes it difficult to change the implementation of a single type.
This commit is contained in:
Dirk Herrmann 2000-09-22 16:44:42 +00:00
parent 1bee0e70ca
commit c1aef03710
5 changed files with 17 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
NEWS
View file

@ -136,10 +136,11 @@ of this variable is (and has been) not fully safe anyway.
** Deprecated macros: SCM_OUTOFRANGE, SCM_NALLOC, SCM_HUP_SIGNAL,
SCM_INT_SIGNAL, SCM_FPE_SIGNAL, SCM_BUS_SIGNAL, SCM_SEGV_SIGNAL,
SCM_ALRM_SIGNAL, SCM_GC_SIGNAL, SCM_TICK_SIGNAL, SCM_SIG_ORD,
SCM_ORD_SIG, SCM_NUM_SIGS, SCM_SYMBOL_SLOTS, SCM_SLOTS
SCM_ORD_SIG, SCM_NUM_SIGS, SCM_SYMBOL_SLOTS, SCM_SLOTS, SCM_SLOPPY_STRINGP
Use SCM_ASSERT_RANGE or SCM_VALIDATE_XXX_RANGE instead of SCM_OUTOFRANGE.
Use scm_memory_error instead of SCM_NALLOC.
Use SCM_STRINGP instead of SCM_SLOPPY_STRINGP.
** Removed function: scm_struct_init

2
RELEASE
View file

@ -50,7 +50,7 @@ In release 1.6:
- remove deprecated macros: SCM_OUTOFRANGE, SCM_NALLOC, SCM_HUP_SIGNAL,
SCM_INT_SIGNAL, SCM_FPE_SIGNAL, SCM_BUS_SIGNAL, SCM_SEGV_SIGNAL,
SCM_ALRM_SIGNAL, SCM_GC_SIGNAL, SCM_TICK_SIGNAL, SCM_SIG_ORD,
SCM_ORD_SIG, SCM_NUM_SIGS
SCM_ORD_SIG, SCM_NUM_SIGS, SCM_SLOPPY_STRINGP
- remove function scm_call_catching_errors
(replaced by catch functions from throw.[ch])
- remove support for "#&" reader syntax in (ice-9 optargs).

10
libguile/ChangeLog
View file

@ -1,3 +1,13 @@
2000-09-22 Dirk Herrmann <D.Herrmann@tu-bs.de>
* strings.h (SCM_STRING_CHARS): Added, should be used instead of
SCM_CHARS whenever the argument is known to be a string.
(SCM_SLOPPY_STRINGP): Deprecated.
* symbols.h (SCM_SYMBOL_CHARS): Added, should be used instead of
SCM_CHARS whenever the argument is known to be a symbol.
2000-09-22 Neil Jerram <neil@ossau.uklinux.net>
* struct.c (scm_make_struct): Fix texinfo warning in docstring by

5
libguile/strings.h
View file

@ -51,8 +51,8 @@
#define SCM_SLOPPY_STRINGP(x) (SCM_TYP7S (x) == scm_tc7_string)
#define SCM_STRINGP(x) (SCM_NIMP (x) && SCM_SLOPPY_STRINGP (x))
#define SCM_STRINGP(x) (SCM_NIMP (x) && (SCM_TYP7S (x) == scm_tc7_string))
#define SCM_STRING_CHARS(x) ((char *) (SCM_CELL_WORD_1 (x)))
/* Is X a writable string (i.e., not a substring)? */
#define SCM_RWSTRINGP(x) (SCM_NIMP (x) && (SCM_TYP7 (x) == scm_tc7_string))
@ -82,6 +82,7 @@ extern void scm_init_strings (void);
#if (SCM_DEBUG_DEPRECATED == 0)
#define SCM_SLOPPY_STRINGP(x) (SCM_STRINGP(x))
#define SCM_NSTRINGP(x) (!SCM_STRINGP(x))
#define SCM_NRWSTRINGP(x) (! SCM_RWSTRINGP (x))

1
libguile/symbols.h
View file

@ -57,6 +57,7 @@ extern int scm_symhash_dim;
*/
#define SCM_SYMBOLP(x) (SCM_NIMP (x) && (SCM_TYP7 (x) == scm_tc7_symbol))
#define SCM_SYMBOL_CHARS(x) ((char *) (SCM_CELL_WORD_1 (x)))
#define SCM_LENGTH_MAX (0xffffffL)
#define SCM_LENGTH(x) (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8)