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

* Fixed parameter checking for make-string.

Browse source 
* Corrected a bug introduced with the last patch.
This commit is contained in:
Dirk Herrmann 2001-02-08 11:40:51 +00:00
parent e382fdbe0f
commit cb0d8be234
4 changed files with 55 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/strings.h
View file

@ -57,6 +57,7 @@
#define SCM_STRING_CHARS(x) ((char *) (SCM_CELL_WORD_1 (x)))
#endif
#define SCM_SET_STRING_CHARS(s, c) (SCM_SET_CELL_WORD_1 ((s), (c)))
#define SCM_STRING_MAX_LENGTH ((1L << 24) - 1)
#define SCM_STRING_LENGTH(x) (((unsigned long) SCM_CELL_WORD_0 (x)) >> 8)
#define SCM_SET_STRING_LENGTH(s, l) (SCM_SET_CELL_WORD_0 ((s), ((l) << 8) + scm_tc7_string))