From b89dc7ae570a3546f524fb412c6af0f1a284632f Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Fri, 3 Mar 2006 23:56:51 +0000 Subject: [PATCH] Change comments from C++ to C style. Reported by Mike Gran. --- libguile/eval.c | 6 +++--- libguile/posix.c | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/libguile/eval.c b/libguile/eval.c index 5e712ec65..1d917c513 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -5695,8 +5695,8 @@ SCM_DEFINE (scm_cons_source, "cons-source", 3, 0, 0, * hare-and-tortoise implementation, found several times in guile. */ struct t_trace { - struct t_trace *trace; // These pointers form a trace along the stack. - SCM obj; // The object handled at the respective stack frame. + struct t_trace *trace; /* These pointers form a trace along the stack. */ + SCM obj; /* The object handled at the respective stack frame.*/ }; static SCM @@ -5751,7 +5751,7 @@ copy_tree ( return new_vector; } - else // scm_is_pair (hare->obj) + else /* scm_is_pair (hare->obj) */ { SCM result; SCM tail; diff --git a/libguile/posix.c b/libguile/posix.c index 7784a6d81..5715a327d 100644 --- a/libguile/posix.c +++ b/libguile/posix.c @@ -1877,7 +1877,7 @@ SCM_DEFINE (scm_gethostname, "gethostname", 0, 0, 0, { const int save_errno = errno; - // No guile exceptions can occur before we have freed p's memory. + /* No guile exceptions can occur before we have freed p's memory. */ scm_dynwind_end (); free (p); @@ -1889,7 +1889,7 @@ SCM_DEFINE (scm_gethostname, "gethostname", 0, 0, 0, /* scm_from_locale_string may throw an exception. */ const SCM name = scm_from_locale_string (p); - // No guile exceptions can occur before we have freed p's memory. + /* No guile exceptions can occur before we have freed p's memory. */ scm_dynwind_end (); free (p);