/[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.68 by ossau, Tue Jan 22 23:31:39 2002 UTC revision 1.69 by mvo, Mon Feb 11 18:06:49 2002 UTC
# Line 354  SCM_DEFINE (scm_search_path, "search-pat Line 354  SCM_DEFINE (scm_search_path, "search-pat
354    { /* scope */    { /* scope */
355      SCM result = SCM_BOOL_F;      SCM result = SCM_BOOL_F;
356      size_t buf_size = max_path_len + 1 + filename_len + max_ext_len + 1;      size_t buf_size = max_path_len + 1 + filename_len + max_ext_len + 1;
357      char *buf = SCM_MUST_MALLOC (buf_size);      char *buf = scm_malloc (buf_size);
358    
359      /* This simplifies the loop below a bit.  */      /* This simplifies the loop below a bit.  */
360      if (SCM_NULL_OR_NIL_P (extensions))      if (SCM_NULL_OR_NIL_P (extensions))
# Line 400  SCM_DEFINE (scm_search_path, "search-pat Line 400  SCM_DEFINE (scm_search_path, "search-pat
400        }        }
401    
402    end:    end:
403      scm_must_free (buf);      free (buf);
     scm_done_free (buf_size);  
404      SCM_ALLOW_INTS;      SCM_ALLOW_INTS;
405      return result;      return result;
406    }    }

Legend:
Removed from v.1.68  
changed lines
  Added in v.1.69

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