Skip to content
Snippets Groups Projects
Commit 7b4928b4 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix <> redirection handling

parent 44a52cb9
No related branches found
No related tags found
No related merge requests found
...@@ -244,8 +244,8 @@ ...@@ -244,8 +244,8 @@
(f '< fd pn (f '< fd pn
'(:input :if-does-not-exist :error))) '(:input :if-does-not-exist :error)))
(`(<> ,pn) (c `(<> 0 ,pn))) (`(<> ,pn) (c `(<> 0 ,pn)))
(`(<> ,pn) (`(<> ,fd ,pn)
(f '<> 0 pn (f '<> fd pn
'(:io :if-exists :overwrite :if-does-not-exist :error))) '(:io :if-exists :overwrite :if-does-not-exist :error)))
(`(> ,pn) (c `(> 1 ,pn))) (`(> ,pn) (c `(> 1 ,pn)))
(`(> ,fd ,pn) (`(> ,fd ,pn)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment