guile/guile-core/libguile symbols.c

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       01/03/07 18:46:14

Modified files:
        guile-core/libguile: symbols.c 

Log message:
        * symbols.c, symbols.h (scm_sys_symbols): New function GUILE_DEBUG
        function.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/symbols.c.diff?r1=1.80&r2=1.81

Patches:
Index: guile/guile-core/libguile/symbols.c
diff -u guile/guile-core/libguile/symbols.c:1.80 
guile/guile-core/libguile/symbols.c:1.81
--- guile/guile-core/libguile/symbols.c:1.80    Sun Mar  4 14:48:13 2001
+++ guile/guile-core/libguile/symbols.c Wed Mar  7 18:46:14 2001
@@ -1,4 +1,4 @@
-/*     Copyright (C) 1995,1996,1997,1998, 2000 Free Software Foundation, Inc.
+/*     Copyright (C) 1995,1996,1997,1998, 2000, 2001 Free Software Foundation, 
Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -70,6 +70,17 @@
 
 static SCM symbols;
 
+#ifdef GUILE_DEBUG
+SCM_DEFINE (scm_sys_symbols, "%symbols", 0, 0, 0,
+           (),
+           "Return the system symbol obarray.")
+#define FUNC_NAME s_scm_sys_symbols
+{
+  return symbols;
+}
+#undef FUNC_NAME
+#endif
+
 
 
 static char *
@@ -864,7 +875,7 @@
 void
 scm_symbols_prehistory ()
 {
-  symbols = scm_make_weak_key_hash_table (SCM_MAKINUM (277));
+  symbols = scm_make_weak_key_hash_table (SCM_MAKINUM (1009));
   scm_permanent_object (symbols);
 }