diff options
author | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-20 20:59:33 +0000 |
---|---|---|
committer | Greg J. Badros <gjb@cs.washington.edu> | 2000-01-20 20:59:33 +0000 |
commit | 2de14ecd1cc69f46c6a632e8594633065e6d960c (patch) | |
tree | 04ed2656f0a01c132fe3be2984388fb9d8ce4c1e /libguile/load.c | |
parent | 14469b7c69feb0f2c5b8a093f19fe2a548b31c5b (diff) | |
download | guile-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.c | 8 |
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); |