ambrevar/shell: Fix %cmd- to use :- instead of :<>.
parent
080a051f8d
commit
f0c05a77b3
|
@ -180,8 +180,8 @@ Example:
|
||||||
(list :input last-arg)))))
|
(list :input last-arg)))))
|
||||||
|
|
||||||
(defun %cmd- (final-caller &rest args)
|
(defun %cmd- (final-caller &rest args)
|
||||||
"See `cmd<->'."
|
"See `cmd-'."
|
||||||
(let ((arg-lists (sera:split-sequence :<> args)))
|
(let ((arg-lists (sera:split-sequence :- args)))
|
||||||
(sera:nlet call ((arg-lists arg-lists)
|
(sera:nlet call ((arg-lists arg-lists)
|
||||||
(last-result-stream nil))
|
(last-result-stream nil))
|
||||||
(let* ((args (first arg-lists)))
|
(let* ((args (first arg-lists)))
|
||||||
|
|
Loading…
Reference in New Issue