mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

regularize comments.

Browse source
This commit is contained in:
Han-Wen Nienhuys 2007-01-22 15:57:22 +00:00
parent 3d178652b8
commit d00a0704a9
2 changed files with 15 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ChangeLog
View file

@ -1,5 +1,7 @@
2007-01-22 Han-Wen Nienhuys <hanwen@lilypond.org>
* srcprop.c: regularize comments.
* eval.c: remove superfluous ifndef DEVAL.
* private-options.h: idem.

24
libguile/srcprop.c
View file

@ -58,13 +58,14 @@ SCM_GLOBAL_SYMBOL (scm_sym_breakpoint, "breakpoint");
/*
layout:
* Source properties are stored as double cells with the
* following layout:
car = tag
cbr = pos
ccr = copy
cdr = plist
*/
* car = tag
* cbr = pos
* ccr = copy
* cdr = plist
*/
#define SRCPROPSP(p) (SCM_SMOB_PREDICATE (scm_tc16_srcprops, (p)))
#define SRCPROPBRK(p) (SCM_SMOB_FLAGS (p) & SCM_SOURCE_PROPERTY_FLAG_BREAK)
@ -117,11 +118,12 @@ scm_c_source_property_breakpoint_p (SCM form)
/*
A protected cells whose cdr contains the last plist
used if plist contains only the filename.
This works because scm_set_source_property_x does
not use assoc-set! for modifying the plist.
* We remember the last file name settings, so we can share that plist
* entry. This works because scm_set_source_property_x does not use
* assoc-set! for modifying the plist.
*
* This variable contains a protected cons, whose cdr is the cached
* plist
*/
static SCM scm_last_plist_filename;