set: Ignore set -o, set +o.

This commit is contained in:
Jan Nieuwenhuizen 2018-12-04 19:17:10 +01:00
parent 42d52d1a70
commit 1ce8250029
1 changed files with 2 additions and 0 deletions

View File

@ -112,6 +112,8 @@
(("+u") (set-shell-opt! "nounset" #f))
(("-x") (set-shell-opt! "xtrace" #t))
(("+x") (set-shell-opt! "xtrace" #f))
(("-o" option) (format (current-error-port) "warning: set: not supported: ~a\n" args))
(("+o" option) (format (current-error-port) "warning: set: not supported: ~a\n" args))
(((and (? string?) arg)) (let* ((lst (string->string-list arg))
(set (car lst)))
(when (not (member set '("-" "+")))