mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

ambrevar/shell: Fix %cmd- to use :- instead of :<>.

master
Pierre Neidhardt 2021-01-24 19:22:44 +01:00
parent 080a051f8d
commit f0c05a77b3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
.local/share/common-lisp/source/ambrevar/shell.lisp
View File

@ -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)))