set: Ignore set -o, set +o.
This commit is contained in:
parent
42d52d1a70
commit
1ce8250029
|
@ -112,6 +112,8 @@
|
||||||
(("+u") (set-shell-opt! "nounset" #f))
|
(("+u") (set-shell-opt! "nounset" #f))
|
||||||
(("-x") (set-shell-opt! "xtrace" #t))
|
(("-x") (set-shell-opt! "xtrace" #t))
|
||||||
(("+x") (set-shell-opt! "xtrace" #f))
|
(("+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))
|
(((and (? string?) arg)) (let* ((lst (string->string-list arg))
|
||||||
(set (car lst)))
|
(set (car lst)))
|
||||||
(when (not (member set '("-" "+")))
|
(when (not (member set '("-" "+")))
|
||||||
|
|
Loading…
Reference in New Issue