diff options
| -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)) |