diff options
Diffstat (limited to 'libguile/objcodes.c')
-rw-r--r-- | libguile/objcodes.c | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/libguile/objcodes.c b/libguile/objcodes.c index bb2810ff5..6f5ded53c 100644 --- a/libguile/objcodes.c +++ b/libguile/objcodes.c @@ -138,38 +138,6 @@ objcode_free (SCM obj) * Scheme interface */ -#if 0 -SCM_DEFINE (scm_do_pair, "do-pair", 2, 0, 0, - (SCM car, SCM cdr), - "This is a stupid test to see how cells work. (Ludo)") -{ - static SCM room[512]; - static SCM *where = &room[0]; - SCM the_pair; - size_t incr; - - if ((scm_t_bits)where & 6) - { - /* Align the cell pointer so that Guile considers it as a - non-immediate object (see tags.h). */ - incr = (scm_t_bits)where & 6; - incr = (~incr) & 7; - where += incr; - } - - printf ("do-pair: pool @ %p, pair @ %p\n", &room[0], where); - where[0] = car; - where[1] = cdr; - - the_pair = PTR2SCM (where); - /* This doesn't work because SCM_SET_GC_MARK will look for some sort of a - "mark bitmap" at the end of a supposed cell segment which doesn't - exist. */ - - return (the_pair); -} -#endif - SCM_DEFINE (scm_objcode_p, "objcode?", 1, 0, 0, (SCM obj), "") |