mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

* alist.c, arbiters.c, continuations.c, debug.c, debug.h, eval.c,

Browse source 
eval.h, feature.c, filesys.c, fports.c, gc.c, gsubr.c, init.c,
ioext.c, kw.c, list.c, load.c, mallocs.c, numbers.c, numbers.h,
pairs.c, pairs.h, ports.c, ports.h, posix.c, procprop.c, procs.c,
procs.h, ramap.c, read.c, root.c, srcprop.c, srcprop.h,
strports.c, symbols.c, tags.h, throw.c, unif.c, variable.c,
vports.c: Cleaned up use of pairs: Don't make any special
assumptions about the internal structure of selectors and
mutators: SCM_CXR (<e1>) = <e2> --> SCM_SETCXR (<e1>, <e2>),
SCM_CXR (<e1>) &= <e2> --> SCM_SETAND_CXR (<e1>, <e2>) etc.
(Among other things, this change makes it easier to build Guile
with certain compilers which have problems with casted lvalues.)
This commit is contained in:
Mikael Djurfeldt 1996-10-20 03:31:08 +00:00
parent a23afe534a
commit a6c64c3c6d
23 changed files with 85 additions and 77 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/debug.c
View file

@ -171,11 +171,11 @@ scm_make_memoized (exp, env)
register SCM z, ans;
SCM_DEFER_INTS;
SCM_NEWCELL (z);
SCM_CAR (z) = exp;
SCM_CDR (z) = env;
SCM_SETCAR (z, exp);
SCM_SETCDR (z, env);
SCM_NEWCELL (ans);
SCM_CAR (ans) = scm_tc16_memoized;
SCM_CDR (ans) = z;
SCM_SETCAR (ans, scm_tc16_memoized);
SCM_SETCDR (ans, z);
SCM_ALLOW_INTS;
return ans;
}
@ -378,8 +378,8 @@ scm_make_debugobj (frame)
register SCM z;
SCM_DEFER_INTS;
SCM_NEWCELL (z);
SCM_CAR (z) = scm_tc16_debugobj;
SCM_DEBUGOBJ_FRAME (z) = (SCM) frame;
SCM_SETCAR (z, scm_tc16_debugobj);
SCM_SET_DEBUGOBJ_FRAME (z, (SCM) frame);
SCM_ALLOW_INTS;
return z;
}