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 @@
(f '< fd pn
'(:input :if-does-not-exist :error)))
(`(<> ,pn) (c `(<> 0 ,pn)))
(`(<> ,pn)
(f '<> 0 pn
(`(<> ,fd ,pn)
(f '<> fd pn
'(:io :if-exists :overwrite :if-does-not-exist :error)))
(`(> ,pn) (c `(> 1 ,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