mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

finish compiler.texi, woo

Browse source 
* libguile/objcodes.c (do-pair): Removed unused debuging hack.

* module/language/glil/spec.scm (glil): Simplify a bit.

* module/system/repl/repl.scm (default-catch-handler): Don't catch
  vm-error, as vm-backtrace doesn't exist any more.

* doc/ref/compiler.texi: Finish documenting GLIL and object code.
This commit is contained in:
Andy Wingo 2009-01-11 14:23:48 +01:00
parent c850030fdd
commit ff73ae34c3
4 changed files with 154 additions and 93 deletions
Download patch file Download diff file Expand all files Collapse all files

32
libguile/objcodes.c
View file

@ -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),
"")