* print.h, stacks.h, options.c, options.h: Changed C++

commentaries to C.

diff --git a/libguile/gc.c b/libguile/gc.c
index 8ae5547..292b6f0 100644 (file)
--- a/libguile/gc.c
+++ b/libguile/gc.c
@@ -701,7 +701,9 @@ SCM_DEFINE (scm_gc_stats, "gc-stats", 0, 0, 0,
     goto retry;
   scm_block_gc = 0;
 
-  /// ? ?? ?
+  /* Below, we cons to produce the resulting list.  We want a snapshot of
+   * the heap situation before consing.
+   */
   local_scm_mtrigger = scm_mtrigger;
   local_scm_mallocated = scm_mallocated;
   local_scm_heap_size = SCM_HEAP_SIZE;

diff --git a/libguile/options.c b/libguile/options.c
index cc56c94..bb63cb2 100644 (file)
--- a/libguile/options.c
+++ b/libguile/options.c
@@ -199,7 +199,7 @@ scm_options (SCM arg, scm_option options[], int n, const char *s)
        }
       for (i = 0; i < n; ++i)
        {
-         // scm_option doesn't know if its a long or an SCM
+         /* scm_option doesn't know if its a long or an SCM */
          if (options[i].type == SCM_OPTION_SCM)
            SCM_SETCDR (protected_objects,
                        scm_cons (SCM_PACK(flags[i]),

diff --git a/libguile/print.h b/libguile/print.h
index dbb6186..fa3d009 100644 (file)
--- a/libguile/print.h
+++ b/libguile/print.h
@@ -100,7 +100,7 @@ typedef struct scm_print_state {
 
 extern SCM scm_print_state_vtable;
 
-// ? scm or long?  print.h and print.c disagree
+/* ? scm or long?  print.h and print.c disagree */
 extern long scm_tc16_port_with_ps;
 
 extern SCM scm_print_options (SCM setting);

diff --git a/libguile/stacks.h b/libguile/stacks.h
index ca941e0..1862477 100644 (file)
--- a/libguile/stacks.h
+++ b/libguile/stacks.h
@@ -56,7 +56,7 @@
  */
 
 typedef struct scm_info_frame {
-  //SCM flags;
+  /* SCM flags; */
   scm_bits_t flags;
   SCM source;
   SCM proc;