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

* libguile.h: #include "__scm.h" before testing the STDC_HEADERS

Browse source 
preprocessor symbol; "__scm.h" is where it might get #defined.
* __scm.h: Similar: #include <scmconfig.h> before testing
HAVE_LIMITS_H.

* __scm.h: It's HAVE_LIMITS_H, not HAVE_LIMITSH.

* __scm.h (PROTO): New macro, for declaring functions with
prototypes.

* __scm.h (SCM_SYSMISSING): When we don't have ENOSYS, don't
complain about it in the error message; the error message is
adequate without that note, and there's nothing the user can do
about it.
This commit is contained in:
Jim Blandy 1996-08-15 07:17:00 +00:00
parent 86789f9b69
commit b971d089b4
1 changed files with 19 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

23
libguile/__scm.h
View file

@ -119,6 +119,22 @@ typedef long long_long;
typedef unsigned long ulong_long;
/* What did the configure script discover about the outside world? */
#include <scmconfig.h>
/* Write prototype declarations like this:
int foo PROTO(int a, int b);
At definitions, use K&R style declarations, but make sure there's a
declarative prototype (as above) in scope. This will give you
argument type checking, when available, and be harmless otherwise. */
#ifdef __STDC__
# define PROTO(x) x
#else
# define PROTO(x) (x)
#endif
/* Define
@ -128,7 +144,7 @@ typedef unsigned long ulong_long;
* SCM_MOST_NEGATIVE_FIXNUM == SCM_SRS((long)LONG_MIN, 2)
*/
#ifdef HAVE_LIMITSH
#ifdef HAVE_LIMITS_H
# include <limits.h>
# ifdef UCHAR_MAX
# define SCM_CHAR_SCM_CODE_LIMIT (UCHAR_MAX+1L)
@ -149,10 +165,9 @@ typedef unsigned long ulong_long;
# else
# define SCM_MOST_NEGATIVE_FIXNUM (-SCM_MOST_POSITIVE_FIXNUM)
# endif /* (0 != ~0) */
#endif /* def HAVE_LIMITSH */
#endif /* def HAVE_LIMITS_H */
#include <scmconfig.h>
#include "tags.h"
@ -300,7 +315,7 @@ extern unsigned int scm_async_clock;
#else
# define SCM_SYSMISSING(_subr) \
scm_everr (SCM_UNDEFINED, SCM_EOL, SCM_UNDEFINED, \
"missing function, even ENOSYS is missing", _subr)
"missing function", _subr)
#endif
#define SCM_ARGn 0
#define SCM_ARG1 1