/[guile]/guile/guile-core/libguile/load.c
ViewVC logotype

Diff of /guile/guile-core/libguile/load.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.70 by ttn, Thu Mar 14 03:47:42 2002 UTC revision 1.71 by xxhanwen, Sat Jul 20 14:08:33 2002 UTC
# Line 282  SCM_DEFINE (scm_search_path, "search-pat Line 282  SCM_DEFINE (scm_search_path, "search-pat
282    size_t max_path_len;          /* maximum length of any PATH element */    size_t max_path_len;          /* maximum length of any PATH element */
283    size_t max_ext_len;           /* maximum length of any EXTENSIONS element */    size_t max_ext_len;           /* maximum length of any EXTENSIONS element */
284    
285    SCM_VALIDATE_LIST (1,path);    SCM_VALIDATE_LIST (1, path);
286    SCM_VALIDATE_STRING (2, filename);    SCM_VALIDATE_STRING (2, filename);
287    if (SCM_UNBNDP (extensions))    if (SCM_UNBNDP (extensions))
288      extensions = SCM_EOL;      extensions = SCM_EOL;
289    else    else
290      SCM_VALIDATE_LIST (3,extensions);      SCM_VALIDATE_LIST (3, extensions);
291    
292    filename_chars = SCM_STRING_CHARS (filename);    filename_chars = SCM_STRING_CHARS (filename);
293    filename_len = SCM_STRING_LENGTH (filename);    filename_len = SCM_STRING_LENGTH (filename);

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26