diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2022-08-13 10:45:11 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2022-08-13 10:45:11 -0700 |
commit | 7da27c66ad6129b0709641e99af8829746377fba (patch) | |
tree | d4396191346d3e472de63dde6bd0d76cadc03a5c | |
parent | d746b39983b43dbb117da8ba41dd206d720d0b9b (diff) | |
download | ger2err-7da27c66ad6129b0709641e99af8829746377fba.tar.gz ger2err-7da27c66ad6129b0709641e99af8829746377fba.tar.bz2 ger2err-7da27c66ad6129b0709641e99af8829746377fba.zip |
Bugfix: -p <num> patchset selection.
- match-case must check value against integer predicate,
rather than the list pattern (integerp ...).
-rwxr-xr-x | ger2err | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -136,7 +136,7 @@ (match-case o.out-args ((@change-id) (let ((ps-hash (get-gerrit-comments change-id o.resolved))) (match-case ps-sel - (@(or (integerp @psnum) + (@(or @(integerp @psnum) @(and :highest @(with psnum [find-max-key ps-hash : car]))) (print-as-errors [ps-hash psnum])) |