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

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

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

revision 1.37 by dirk, Fri Oct 5 20:18:30 2001 UTC revision 1.38 by ossau, Tue Jan 22 23:31:39 2002 UTC
# Line 47  Line 47 
47  #include "libguile/_scm.h"  #include "libguile/_scm.h"
48  #include "libguile/mallocs.h"  #include "libguile/mallocs.h"
49  #include "libguile/strings.h"  #include "libguile/strings.h"
50    #include "libguile/lang.h"
51    
52  #include "libguile/options.h"  #include "libguile/options.h"
53    
# Line 198  change_option_setting (SCM args, scm_t_o Line 199  change_option_setting (SCM args, scm_t_o
199          flags[i] = options[i].val;          flags[i] = options[i].val;
200      }      }
201    
202    while (!SCM_NULLP (args))    while (!SCM_NULL_OR_NIL_P (args))
203      {      {
204        SCM name = SCM_CAR (args);        SCM name = SCM_CAR (args);
205        int found = 0;        int found = 0;
# Line 257  scm_options (SCM args, scm_t_option opti Line 258  scm_options (SCM args, scm_t_option opti
258  {  {
259    if (SCM_UNBNDP (args))    if (SCM_UNBNDP (args))
260      return get_option_setting (options, n);      return get_option_setting (options, n);
261    else if (!SCM_NULLP (args) && !SCM_CONSP (args))    else if (!SCM_NULL_OR_NIL_P (args) && !SCM_CONSP (args))
262      /* Dirk:FIXME:: This criterion should be improved.  IMO it is better to      /* Dirk:FIXME:: This criterion should be improved.  IMO it is better to
263       * demand that args is #t if documentation should be shown than to say       * demand that args is #t if documentation should be shown than to say
264       * that every argument except a list will print out documentation.  */       * that every argument except a list will print out documentation.  */

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

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