summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2000-03-20 14:39:23 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2000-03-20 14:39:23 +0000
commit7febb4a2061aff6c918662a31b2e8479febb160a (patch)
tree9c3d4d9052dd07b5545218f05863897dde6f17cd
parent7b4cc8312d14ac614532238d85bffb4fb1e795b7 (diff)
downloadguile-7febb4a2061aff6c918662a31b2e8479febb160a.tar.gz
* print.h, stacks.h, options.c, options.h: Changed C++
commentaries to C.
-rw-r--r--libguile/gc.c4
-rw-r--r--libguile/options.c2
-rw-r--r--libguile/print.h2
-rw-r--r--libguile/stacks.h2
4 files changed, 6 insertions, 4 deletions
diff --git a/libguile/gc.c b/libguile/gc.c
index 8ae55475e..292b6f04c 100644
--- 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 cc56c94c7..bb63cb24c 100644
--- 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 dbb61860b..fa3d00935 100644
--- 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 ca941e0db..186247785 100644
--- 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;