mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

*** empty log message ***

Browse source
This commit is contained in:
Mikael Djurfeldt 1996-08-20 17:12:43 +00:00
parent e137c6b3e3
commit 8d71b0ce98
3 changed files with 20 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/scmconfig.h.in
View file

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

16
libguile/weaks.c
View file

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

8
libguile/weaks.h
View file

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