mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-07-03 08:10:31 +02:00
Code Activity

* options.c (scm_options): Bugfix: Allow empty list of options!

Browse source
This commit is contained in:
Mikael Djurfeldt 1998-08-21 08:15:31 +00:00
parent 066dacf85d
commit 3243d7231c
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/options.c
View file

@ -123,6 +123,7 @@ scm_options (new_mode, options, n, s)
char *s; char *s;
{ {
int i, docp = (!SCM_UNBNDP (new_mode) int i, docp = (!SCM_UNBNDP (new_mode)
&& !SCM_NULLP (new_mode)
&& (SCM_IMP (new_mode) || SCM_NCONSP (new_mode))); && (SCM_IMP (new_mode) || SCM_NCONSP (new_mode)));
SCM ans = SCM_EOL, ls; SCM ans = SCM_EOL, ls;
for (i = 0; i < n; ++i) for (i = 0; i < n; ++i)