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 9f2ec42c..a9f47d61 100644 --- a/share/txr/stdlib/getopts.tl +++ b/share/txr/stdlib/getopts.tl @@ -246,9 +246,9 @@ (put-line "\nOptions:\n") (each ((od sorted)) (let* ((type (cond - ((keywordp od.type) (upcase-str (tostringp od.type))) + ((keywordp od.type) (upcase-str (symbol-name od.type))) ((and (consp od.type) (eq (car od.type) 'list)) - (let ((ts (upcase-str (tostringp (cadr od.type))))) + (let ((ts (upcase-str (symbol-name (cadr od.type))))) `@ts[,@ts...]`)) (t "ARG"))) (long (if od.long |