guile/guile-core/libguile procs.h

[Marius Vollmer]

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

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

Log message:
        (SCM_MAKE_CCLO_TAG): New.

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

Patches:
Index: guile/guile-core/libguile/procs.h
diff -u guile/guile-core/libguile/procs.h:1.46 
guile/guile-core/libguile/procs.h:1.47
--- guile/guile-core/libguile/procs.h:1.46      Thu Nov  1 19:19:11 2001
+++ guile/guile-core/libguile/procs.h   Sun Nov 25 10:13:52 2001
@@ -76,7 +76,8 @@
 #define SCM_SUBR_GENERIC(x) (SCM_SUBR_ENTRY (x).generic)
 
 #define SCM_CCLO_LENGTH(x) (SCM_CELL_WORD_0 (x) >> 8)
-#define SCM_SET_CCLO_LENGTH(x, v) (SCM_SET_CELL_WORD_0 ((x), ((v) << 8) + 
scm_tc7_cclo))
+#define SCM_MAKE_CCLO_TAG(v)  (((v) << 8) + scm_tc7_cclo)
+#define SCM_SET_CCLO_LENGTH(x, v) (SCM_SET_CELL_WORD_0 ((x), 
SCM_MAKE_CCLO_TAG(v)))
 #define SCM_CCLO_BASE(x) ((scm_t_bits *) SCM_CELL_WORD_1 (x))
 #define SCM_SET_CCLO_BASE(x, v) (SCM_SET_CELL_WORD_1 ((x), (v)))