diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2020-05-14 06:30:55 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2020-05-14 06:30:55 -0700 |
| commit | 5db470c24ed43f84ab6915b8f6eea3e53a709f1f (patch) | |
| tree | 8e2951924d72efabdb7f9ad8263cca752f62d1c9 /share | |
| parent | cdf79f2907cab5aa410ad47934f0374254386220 (diff) | |
| download | txr-5db470c24ed43f84ab6915b8f6eea3e53a709f1f.tar.gz txr-5db470c24ed43f84ab6915b8f6eea3e53a709f1f.tar.bz2 txr-5db470c24ed43f84ab6915b8f6eea3e53a709f1f.zip | |
sort: prudently make it subject to compat value
* eval.c (eval_init): If opt_compat is 237 or less, make sort
and shuffle destructive.
* share/txr/stdlib/getopts.tl (opthelp): Revert previous
change, restoring use of copy-list and use nsort instead of
sort, so the function is not affected by the 237 compatibility
being turned on.
* txr.1: Add compatibility notes.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/getopts.tl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/share/txr/stdlib/getopts.tl b/share/txr/stdlib/getopts.tl index db8f793f..5a937f84 100644 --- a/share/txr/stdlib/getopts.tl +++ b/share/txr/stdlib/getopts.tl @@ -269,9 +269,9 @@ opr.(parse-opts args))) (defun opthelp (opt-desc-list : (stream *stdout*)) - (let ((sorted [sort (remove-if (op null @1.helptext) - opt-desc-list) : - (do if @1.long @1.long @1.short)]) + (let ((sorted [nsort (copy-list (remove-if (op null @1.helptext) + opt-desc-list)) : + (do if @1.long @1.long @1.short)]) (undocumented (keep-if (op null @1.helptext) opt-desc-list))) (put-line "\nOptions:\n") (each ((od sorted)) |