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 |
|
|
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; |
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. */ |