summaryrefslogtreecommitdiff
path: root/libguile/load.c
diff options
context:
space:
mode:
authorGreg J. Badros <gjb@cs.washington.edu>2000-01-20 20:59:33 +0000
committerGreg J. Badros <gjb@cs.washington.edu>2000-01-20 20:59:33 +0000
commit2de14ecd1cc69f46c6a632e8594633065e6d960c (patch)
tree04ed2656f0a01c132fe3be2984388fb9d8ce4c1e /libguile/load.c
parent14469b7c69feb0f2c5b8a093f19fe2a548b31c5b (diff)
downloadguile-2de14ecd1cc69f46c6a632e8594633065e6d960c.tar.gz
Patch from Dirk Hermann:
* list.c: Put some variable initialization code at the point of declaration; Added a comment for list*; Formatting changes. * load.c: use SCM_NNULLP to make sure the end of a list is not reached yet.
Diffstat (limited to 'libguile/load.c')
-rw-r--r--libguile/load.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/load.c b/libguile/load.c
index 4f573672a..86deef07a 100644
--- a/libguile/load.c
+++ b/libguile/load.c
@@ -285,7 +285,7 @@ SCM_DEFINE (scm_search_path, "search-path", 2, 1, 0,
SCM walk;
max_path_len = 0;
- for (walk = path; SCM_NIMP (walk); walk = SCM_CDR (walk))
+ for (walk = path; SCM_NNULLP (walk); walk = SCM_CDR (walk))
{
SCM elt = SCM_CAR (walk);
SCM_ASSERT (SCM_ROSTRINGP (elt), elt,
@@ -324,7 +324,7 @@ SCM_DEFINE (scm_search_path, "search-path", 2, 1, 0,
SCM walk;
max_ext_len = 0;
- for (walk = extensions; SCM_NIMP (walk); walk = SCM_CDR (walk))
+ for (walk = extensions; SCM_NNULLP (walk); walk = SCM_CDR (walk))
{
SCM elt = SCM_CAR (walk);
SCM_ASSERT (SCM_ROSTRINGP (elt), elt,
@@ -348,7 +348,7 @@ SCM_DEFINE (scm_search_path, "search-path", 2, 1, 0,
/* Try every path element. At this point, we know the path is a
proper list of strings. */
- for (; SCM_NIMP (path); path = SCM_CDR (path))
+ for (; SCM_NNULLP (path); path = SCM_CDR (path))
{
int len;
SCM dir = SCM_CAR (path);
@@ -364,7 +364,7 @@ SCM_DEFINE (scm_search_path, "search-path", 2, 1, 0,
/* Try every extension. At this point, we know the extension
list is a proper, nonempty list of strings. */
- for (exts = extensions; SCM_NIMP (exts); exts = SCM_CDR (exts))
+ for (exts = extensions; SCM_NNULLP (exts); exts = SCM_CDR (exts))
{
SCM ext = SCM_CAR (exts);
int ext_len = SCM_ROLENGTH (ext);