mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Fix 1.8-compatibility of `scm_search_path ()'.

Browse source 
* libguile/load.c (scm_search_path): Handle the 1.8-compatibility case
  where REST is `SCM_UNDEFINED'.  Reported by Dale P. Smith.
This commit is contained in:
Ludovic Courtès 2010-01-06 23:54:21 +01:00
parent daa4a3f1ff
commit e29dcaf3b7
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/load.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1998,1999,2000,2001, 2004, 2006, 2008, 2009 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1998,1999,2000,2001, 2004, 2006, 2008, 2009, 2010 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License * modify it under the terms of the GNU Lesser General Public License
@ -407,11 +407,12 @@ SCM_DEFINE (scm_search_path, "search-path", 2, 0, 1,
SCM extensions, require_exts; SCM extensions, require_exts;
SCM result = SCM_BOOL_F; SCM result = SCM_BOOL_F;
if (scm_is_null (rest)) if (SCM_UNBNDP (rest) || scm_is_null (rest))
{ {
/* Called either by Scheme code that didn't provide the optional /* Called either by Scheme code that didn't provide the optional
arguments, or C code that used the Guile 1.8 signature (2 required, arguments, or C code that used the Guile 1.8 signature (2 required,
1 optional arg) and passed '() as the EXTENSIONS argument. */ 1 optional arg) and passed '() or nothing as the EXTENSIONS
argument. */
extensions = SCM_EOL; extensions = SCM_EOL;
require_exts = SCM_UNDEFINED; require_exts = SCM_UNDEFINED;
} }