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> 2007-01-22 Han-Wen Nienhuys <hanwen@lilypond.org>
* srcprop.c: regularize comments.
* eval.c: remove superfluous ifndef DEVAL. * eval.c: remove superfluous ifndef DEVAL.
* private-options.h: idem. * 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 * car = tag
cbr = pos * cbr = pos
ccr = copy * ccr = copy
cdr = plist * cdr = plist
*/ */
#define SRCPROPSP(p) (SCM_SMOB_PREDICATE (scm_tc16_srcprops, (p))) #define SRCPROPSP(p) (SCM_SMOB_PREDICATE (scm_tc16_srcprops, (p)))
#define SRCPROPBRK(p) (SCM_SMOB_FLAGS (p) & SCM_SOURCE_PROPERTY_FLAG_BREAK) #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 * We remember the last file name settings, so we can share that plist
used if plist contains only the filename. * entry. This works because scm_set_source_property_x does not use
* assoc-set! for modifying the plist.
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; static SCM scm_last_plist_filename;