This is the mail archive of the
guile@sourceware.cygnus.com
mailing list for the Guile project.
SCM_SMOB_TAG smob abstraction
- To: guile@sourceware.cygnus.com
- Subject: SCM_SMOB_TAG smob abstraction
- From: Jorgen "forcer" Schaefer <forcer@mindless.com>
- Date: Wed, 1 Sep 1999 22:38:12 +0200
To faciliate an abstraction for smob tag retrieval similar to the
SCM_SMOB_DATA functions, it would be nice to have a SCM_SMOB_TAG
macro (patch below).
Documentation has to be changed to support this new style of smob
interface (neither is explained there) ...
diff -urN guile-core-orig/libguile/smob.h guile-core/libguile/smob.h
--- guile-core-orig/libguile/smob.h Sun Jul 25 08:06:48 1999
+++ guile-core/libguile/smob.h Wed Sep 1 22:34:45 1999
@@ -85,6 +85,7 @@
} while (0)
+#define SCM_SMOB_TAG(x) SCM_CAR (x)
#define SCM_SMOB_DATA(x) SCM_CDR (x)
#define SCM_SET_SMOB_DATA(x, data) SCM_SETCDR (x, data)
#define SCM_TC2SMOBNUM(x) (0x0ff & ((x) >> 8))
HTH,
-forcer
--
((email . "forcer@mindless.com") (www . "http://forcix.cx/")
(irc . "forcer@#StarWars (IRCnet)") (gpg . "/other/forcer.gpg"))