summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--scsh-process.scm2
-rw-r--r--tests/run.scm7
2 files changed, 5 insertions, 4 deletions
diff --git a/scsh-process.scm b/scsh-process.scm
index 280a3c9..600f7ab 100644
--- a/scsh-process.scm
+++ b/scsh-process.scm
@@ -229,7 +229,7 @@
(duplicate-fileno (file-open (maybe->string `?file-name) open/rdonly)
`?fd))
((_ (<< ?fd ?object))
- (fork/pipe (lambda () (display ?object))))
+ (fork/pipe (lambda () (display `?object))))
((_ (= ?fd-from ?fd/port-to))
(let* ((fd/port-to ?fd/port-to) ; Evaluate once
(fd-to (if (port? fd/port-to)
diff --git a/tests/run.scm b/tests/run.scm
index 3526ec0..b72ca75 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -45,9 +45,10 @@
(begin (run (echo foo) (>> ,tmpfile))
(read-lines tmpfile)))
- (test "Redirecting from object"
- '("blah" "foo" "testing, 1 2 3")
- (run/strings (cat ,tmpfile -) (<< "testing, 1 2 3")))
+ (let ((message "testing, 1 2 3"))
+ (test "Redirecting from object"
+ `("blah" "foo" ,message)
+ (run/strings (cat ,tmpfile -) (<< ,message))))
(delete-file* tmpfile)))
(test-group "Subprocesses"