diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2017-07-16 22:00:18 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2017-07-16 22:00:18 -0700 |
| commit | 5b6b7906c62397adc7a0377daabcd6555d5d9ea1 (patch) | |
| tree | c744817e096e41f32e833cbfbe3ecdc1c45db7f8 /share | |
| parent | dc9247c4343ceb1e8d8bbd38d8e10bf9ebd765b7 (diff) | |
| download | txr-5b6b7906c62397adc7a0377daabcd6555d5d9ea1.tar.gz txr-5b6b7906c62397adc7a0377daabcd6555d5d9ea1.tar.bz2 txr-5b6b7906c62397adc7a0377daabcd6555d5d9ea1.zip | |
getopts: Fix broken custom function option type.
This was broken on 2016-11-03 by the commit "Support
simple list arguments in getopts." The sys:opt-parsed
type has no type slot.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/getopts.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/getopts.tl b/share/txr/stdlib/getopts.tl index 7cd89cfa..3454b73f 100644 --- a/share/txr/stdlib/getopts.tl +++ b/share/txr/stdlib/getopts.tl @@ -134,8 +134,8 @@ rec-type)) pieces))) (set me.arg (mapcar (usl arg) sub-opts)))) - ((or (symbolp me.type) (functionp me.type)) - (set me.arg (call me.desc.type me.arg)))))))) + ((or (symbolp type) (functionp type)) + (set me.arg (call type me.arg)))))))) (defmeth opts lambda (me key : dfl) (iflet ((o [me.opt-hash key])) o.arg dfl)) |