guile/guile-core/libguile symbols.h

[Marius Vollmer]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 01/11/25 10:15:47

Modified files:
        guile-core/libguile: symbols.h 

Log message:
        (SCM_MAKE_SYMBOL_TAG): New.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/symbols.h.diff?cvsroot=OldCVS&tr1=1.59&tr2=1.60&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/symbols.h
diff -u guile/guile-core/libguile/symbols.h:1.59 
guile/guile-core/libguile/symbols.h:1.60
--- guile/guile-core/libguile/symbols.h:1.59    Thu Nov  1 19:19:11 2001
+++ guile/guile-core/libguile/symbols.h Sun Nov 25 10:15:47 2001
@@ -55,7 +55,8 @@
 
 #define SCM_SYMBOLP(x)              (!SCM_IMP (x) && (SCM_TYP7 (x) == 
scm_tc7_symbol))
 #define SCM_SYMBOL_LENGTH(x)        (((unsigned long) SCM_CELL_WORD_0 (x)) >> 
8)
-#define SCM_SET_SYMBOL_LENGTH(s, l) (SCM_SET_CELL_WORD_0 ((s), ((l) << 8) + 
scm_tc7_symbol))
+#define SCM_MAKE_SYMBOL_TAG(l)      (((l) << 8) + scm_tc7_symbol)
+#define SCM_SET_SYMBOL_LENGTH(s, l) (SCM_SET_CELL_WORD_0 ((s), 
SCM_MAKE_SYMBOL_TAG(l)))
 #define SCM_SYMBOL_CHARS(x)         ((char *) (SCM_CELL_WORD_1 (x)))
 #define SCM_SET_SYMBOL_CHARS(s, c)  (SCM_SET_CELL_WORD_1 ((s), (c)))
 #define SCM_SYMBOL_HASH(X)          ((unsigned long) SCM_CELL_WORD_2 (X))