diff options
author | Neil Jerram <neil@ossau.uklinux.net> | 2002-01-22 23:31:39 +0000 |
---|---|---|
committer | Neil Jerram <neil@ossau.uklinux.net> | 2002-01-22 23:31:39 +0000 |
commit | c96d76b88dcb7805311d14e6e408d064211fde20 (patch) | |
tree | 08d604bcf94ceb35dd271c4c46064ed60644f5b4 /libguile/dynl.c | |
parent | 229d2c9c076d214457f4f6817f7d3c1db90ed994 (diff) | |
download | guile-c96d76b88dcb7805311d14e6e408d064211fde20.tar.gz |
* First batch of libguile changes for Elisp support.
* Fixed a few typos.
* Minor rationalization of macros relating to source breakpoints.
Diffstat (limited to 'libguile/dynl.c')
-rw-r--r-- | libguile/dynl.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libguile/dynl.c b/libguile/dynl.c index 136595780..d920b2d7a 100644 --- a/libguile/dynl.c +++ b/libguile/dynl.c @@ -72,6 +72,7 @@ maybe_drag_in_eprintf () #include "libguile/ports.h" #include "libguile/strings.h" #include "libguile/deprecation.h" +#include "libguile/lang.h" #include "libguile/validate.h" /* Create a new C argv array from a scheme list of strings. */ @@ -97,7 +98,7 @@ scm_make_argv_from_stringlist (SCM args,int *argcp,const char *subr,int argn) argc = scm_ilength (args); SCM_ASSERT (argc >= 0, args, argn, subr); argv = (char **) scm_must_malloc ((argc + 1) * sizeof (char *), subr); - for (i = 0; !SCM_NULLP (args); args = SCM_CDR (args), ++i) { + for (i = 0; !SCM_NULL_OR_NIL_P (args); args = SCM_CDR (args), ++i) { SCM arg = SCM_CAR (args); size_t len; char *dst; |