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

Fix C99-style comments.

Browse source 
* libguile/generalized-vectors.c, libguile/programs.c, libguile/vm.c:
  Replace C99-style comments by plain old C89 comments.
This commit is contained in:
Ludovic Courtès 2009-11-08 01:13:46 +01:00
parent 19977b7ce0
commit 6f6f0dac01
3 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/generalized-vectors.c
View file

@ -178,7 +178,7 @@ SCM_DEFINE (scm_generalized_vector_to_list, "generalized-vector->list", 1, 0, 0,
ssize_t pos, i = 0; ssize_t pos, i = 0;
scm_t_array_handle h; scm_t_array_handle h;
scm_generalized_vector_get_handle (v, &h); scm_generalized_vector_get_handle (v, &h);
// FIXME CHECKME /* FIXME CHECKME */
for (pos = h.dims[0].ubnd, i = (h.dims[0].ubnd - h.dims[0].lbnd + 1); for (pos = h.dims[0].ubnd, i = (h.dims[0].ubnd - h.dims[0].lbnd + 1);
i >= 0; i >= 0;
pos += h.dims[0].inc) pos += h.dims[0].inc)

4
libguile/programs.c
View file

@ -26,8 +26,8 @@
#include "instructions.h" #include "instructions.h"
#include "modules.h" #include "modules.h"
#include "programs.h" #include "programs.h"
#include "procprop.h" // scm_sym_name #include "procprop.h" /* scm_sym_name */
#include "srcprop.h" // scm_sym_filename #include "srcprop.h" /* scm_sym_filename */
#include "vm.h" #include "vm.h"

2
libguile/vm.c
View file

@ -158,7 +158,7 @@ vm_dispatch_hook (struct scm_vm *vp, SCM hook, SCM hook_args)
return; return;
scm_dynwind_begin (0); scm_dynwind_begin (0);
// FIXME, stack holder should be the vm /* FIXME, stack holder should be the vm */
vp->trace_frame = scm_c_make_vm_frame (SCM_BOOL_F, vp->fp, vp->sp, vp->ip, 0); vp->trace_frame = scm_c_make_vm_frame (SCM_BOOL_F, vp->fp, vp->sp, vp->ip, 0);
scm_dynwind_unwind_handler (enfalsen_frame, vp, SCM_F_WIND_EXPLICITLY); scm_dynwind_unwind_handler (enfalsen_frame, vp, SCM_F_WIND_EXPLICITLY);