diff options
| author | Gary Houston <ghouston@arglist.com> | 2000-01-31 18:29:56 +0000 |
|---|---|---|
| committer | Gary Houston <ghouston@arglist.com> | 2000-01-31 18:29:56 +0000 |
| commit | bd9e24b30126cb31005ca286118609eb6f4dfbba (patch) | |
| tree | 33a2cc729eb2990f3bf27ef0faa888c6e59392c6 /libguile/script.c | |
| parent | 505ede188182b40c34dba6745c768f42c7caca09 (diff) | |
| download | guile-bd9e24b30126cb31005ca286118609eb6f4dfbba.tar.gz | |
* strings.h: don't use SCM_P. don't include <string.h>.
* error.c, gh_data.c, ports.c, script.c, strop.c: include <string.h>.
* strings.c (scm_string_ref): make the 2nd argument compulsory.
previously it defaulted to zero for no good reason that I can see.
use a local variable for SCM_INUM (k). replace
SCM_VALIDATE_INUM_DEF with SCM_VALIDATE_INUM_COPY.
(scm_makfromstr): cosmetic changes.
(scm_string): Accept only chars in the list, not strings, for
conformance to R5RS (particularly for list->string, which is
supposed to be the inverse of string->list.) remove
SCM_DEFER_INTS/SCM_ALLOW_INTS, which is unnecessary since
scm_makstr handles the cell allocation. when reporting wrong-type
arg, don't report the position as 1.
* posix.c (scm_init_posix): intern PIPE_BUF if it's defined.
* boot-9.scm (find-and-link-dynamic-module): pass strings, not symbols,
to string-append.
Diffstat (limited to 'libguile/script.c')
| -rw-r--r-- | libguile/script.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libguile/script.c b/libguile/script.c index 4270d55df..064f50275 100644 --- a/libguile/script.c +++ b/libguile/script.c @@ -53,6 +53,10 @@ #include "script.h" +#ifdef HAVE_STRING_H +#include <string.h> +#endif + #ifdef HAVE_UNISTD_H #include <unistd.h> /* for X_OK define */ #endif |