summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1996-08-20 17:12:43 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1996-08-20 17:12:43 +0000
commit8d71b0ce987192a494aba4e8e8b653f2bbacf1fb (patch)
tree80c6b995c7d9dad831bbcc7b22122040015ebb3a
parente137c6b3e3bcf8d41a7c7d78e2acaa778357b758 (diff)
downloadguile-8d71b0ce987192a494aba4e8e8b653f2bbacf1fb.tar.gz
*** empty log message ***
-rw-r--r--libguile/scmconfig.h.in11
-rw-r--r--libguile/weaks.c16
-rw-r--r--libguile/weaks.h8
3 files changed, 20 insertions, 15 deletions
diff --git a/libguile/scmconfig.h.in b/libguile/scmconfig.h.in
index 9d828e001..027cf57b8 100644
--- a/libguile/scmconfig.h.in
+++ b/libguile/scmconfig.h.in
@@ -54,6 +54,11 @@
/* Define to `int' if <sys/types.h> doesn't define. */
#undef uid_t
+/* Define these two if you want support for debugging of Scheme
+ programs. */
+#undef DEBUG_EXTENSIONS
+#undef READER_EXTENSIONS
+
/* Define this if your system has a way to set a stdio stream's file
descriptor. You should also copy fd.h.in to fd.h, and give the
macro SET_FILE_FD_FIELD an appropriate definition. See
@@ -176,6 +181,9 @@
/* Define if you have the <sys/dir.h> header file. */
#undef HAVE_SYS_DIR_H
+/* Define if you have the <sys/ioctl.h> header file. */
+#undef HAVE_SYS_IOCTL_H
+
/* Define if you have the <sys/ndir.h> header file. */
#undef HAVE_SYS_NDIR_H
@@ -194,9 +202,6 @@
/* Define if you have the <sys/types.h> header file. */
#undef HAVE_SYS_TYPES_H
-/* Define if you have the <sys/ioctl.h> header file. */
-#undef HAVE_SYS_IOCTL_H
-
/* Define if you have the <time.h> header file. */
#undef HAVE_TIME_H
diff --git a/libguile/weaks.c b/libguile/weaks.c
index 8479d76f5..ff0926599 100644
--- a/libguile/weaks.c
+++ b/libguile/weaks.c
@@ -119,18 +119,18 @@ scm_weak_vector_p (x)
-SCM_PROC(s_make_weak_hash_table, "make-weak-hash-table", 1, 0, 0, scm_make_weak_hash_table);
+SCM_PROC(s_make_weak_key_hash_table, "make-weak-key-hash-table", 1, 0, 0, scm_make_weak_key_hash_table);
#ifdef __STDC__
SCM
-scm_make_weak_hash_table (SCM k)
+scm_make_weak_key_hash_table (SCM k)
#else
SCM
-scm_make_weak_hash_table (k)
+scm_make_weak_key_hash_table (k)
SCM k;
#endif
{
SCM v;
- SCM_ASSERT (SCM_INUMP (k), k, SCM_ARG1, s_make_weak_hash_table);
+ SCM_ASSERT (SCM_INUMP (k), k, SCM_ARG1, s_make_weak_key_hash_table);
v = scm_make_weak_vector (k, SCM_EOL);
SCM_ALLOW_INTS;
SCM_VELTS (v)[-1] = 1;
@@ -171,7 +171,7 @@ scm_make_doubly_weak_hash_table (k)
#endif
{
SCM v;
- SCM_ASSERT (SCM_INUMP (k), k, SCM_ARG1, s_make_weak_value_hash_table);
+ SCM_ASSERT (SCM_INUMP (k), k, SCM_ARG1, s_make_doubly_weak_hash_table);
v = scm_make_weak_vector (k, SCM_EOL);
SCM_ALLOW_INTS;
SCM_VELTS (v)[-1] = 3;
@@ -179,13 +179,13 @@ scm_make_doubly_weak_hash_table (k)
return v;
}
-SCM_PROC(s_weak_hash_table_p, "weak-hash-table?", 1, 0, 0, scm_weak_hash_table_p);
+SCM_PROC(s_weak_key_hash_table_p, "weak-key-hash-table?", 1, 0, 0, scm_weak_key_hash_table_p);
#ifdef __STDC__
SCM
-scm_weak_hash_table_p (SCM x)
+scm_weak_key_hash_table_p (SCM x)
#else
SCM
-scm_weak_hash_table_p (x)
+scm_weak_key_hash_table_p (x)
SCM x;
#endif
{
diff --git a/libguile/weaks.h b/libguile/weaks.h
index 98e1cb698..426673211 100644
--- a/libguile/weaks.h
+++ b/libguile/weaks.h
@@ -60,10 +60,10 @@
extern SCM scm_make_weak_vector (SCM k, SCM fill);
extern SCM scm_weak_vector (SCM l);
extern SCM scm_weak_vector_p (SCM x);
-extern SCM scm_make_weak_hash_table (SCM k);
+extern SCM scm_make_weak_key_hash_table (SCM k);
extern SCM scm_make_weak_value_hash_table (SCM k);
extern SCM scm_make_doubly_weak_hash_table (SCM k);
-extern SCM scm_weak_hash_table_p (SCM x);
+extern SCM scm_weak_key_hash_table_p (SCM x);
extern SCM scm_weak_value_hash_table_p (SCM x);
extern SCM scm_doubly_weak_hash_table_p (SCM x);
extern void scm_init_weaks (void);
@@ -72,10 +72,10 @@ extern void scm_init_weaks (void);
extern SCM scm_make_weak_vector ();
extern SCM scm_weak_vector ();
extern SCM scm_weak_vector_p ();
-extern SCM scm_make_weak_hash_table ();
+extern SCM scm_make_weak_key_hash_table ();
extern SCM scm_make_weak_value_hash_table ();
extern SCM scm_make_doubly_weak_hash_table ();
-extern SCM scm_weak_hash_table_p ();
+extern SCM scm_weak_key_hash_table_p ();
extern SCM scm_weak_value_hash_table_p ();
extern SCM scm_doubly_weak_hash_table_p ();
extern void scm_init_weaks ();