diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-20 14:39:23 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-03-20 14:39:23 +0000 |
commit | 7febb4a2061aff6c918662a31b2e8479febb160a (patch) | |
tree | 9c3d4d9052dd07b5545218f05863897dde6f17cd | |
parent | 7b4cc8312d14ac614532238d85bffb4fb1e795b7 (diff) | |
download | guile-7febb4a2061aff6c918662a31b2e8479febb160a.tar.gz |
* print.h, stacks.h, options.c, options.h: Changed C++
commentaries to C.
-rw-r--r-- | libguile/gc.c | 4 | ||||
-rw-r--r-- | libguile/options.c | 2 | ||||
-rw-r--r-- | libguile/print.h | 2 | ||||
-rw-r--r-- | libguile/stacks.h | 2 |
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; |