mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 20:05:32 +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

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))