mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

Change comments from C++ to C style. Reported by Mike Gran.

Browse source
This commit is contained in:
Kevin Ryde 2006-03-03 23:56:51 +00:00
parent 1b52ef74b7
commit b89dc7ae57
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/eval.c
View file

@ -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;

4
libguile/posix.c
View file

@ -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);