dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* strings.h, strings.c (scm_i_make_symbol): Added FLAGS parameter.

Browse source 
* symbols.h, symbols.c (SCM_I_F_SYMBOL_UNINTERNED,
scm_i_symbol_is_interned, scm_i_mem2symbol,
scm_i_mem2uninternedsymbol): Use it to store uninternedness flag.
This commit is contained in:
Marius Vollmer 2004-08-26 15:40:13 +00:00
commit 6869328b3b
4 changed files with 14 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/symbols.h
View file

@ -28,7 +28,10 @@
#define scm_is_symbol(x) (!SCM_IMP (x) \
&& (SCM_TYP7 (x) == scm_tc7_symbol))
#define scm_i_symbol_hash(x) ((unsigned long) SCM_CELL_WORD_2 (x))
#define scm_i_symbol_is_interned(x) (scm_i_symbol_hash(x)<=(SCM_T_BITS_MAX/2))
#define scm_i_symbol_is_interned(x) \
(!(SCM_CELL_WORD_0 (x) & SCM_I_F_SYMBOL_UNINTERNED))
#define SCM_I_F_SYMBOL_UNINTERNED 0x100