From e092357058850a6f998bf462bdc5504c6379c96f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 11 Feb 2009 23:01:34 +0100
Subject: [PATCH] Small cleanup relative to the use of double cells for subrs.

* libguile/procs.c (scm_c_make_subr): Remove comments about the number
  of subrs, improve formatting.
---
 libguile/procs.c | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/libguile/procs.c b/libguile/procs.c
index e36e7ca16..af7f071f2 100644
--- a/libguile/procs.c
+++ b/libguile/procs.c
@@ -38,19 +38,13 @@
  */
 
 
-/* libguile contained approx. 700 primitive procedures on 24 Aug 1999. */
-
-/* Increased to 800 on 2001-05-07 -- Guile now has 779 primitives on
-   startup, 786 with guile-readline.  'martin */
-
 SCM
 scm_c_make_subr (const char *name, long type, SCM (*fcn) ())
 {
   register SCM z;
   SCM *meta_info;
 
-  meta_info = scm_gc_malloc (2 * sizeof (* meta_info),
-			     "subr meta-info");
+  meta_info = scm_gc_malloc (2 * sizeof (*meta_info), "subr meta-info");
   meta_info[0] = scm_from_locale_symbol (name);
   meta_info[1] = SCM_EOL;  /* properties */