From 5aab937646bebb4998491def71f0653480a286f4 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Tue, 2 Oct 2012 15:40:44 +0100 Subject: Use implicit quasiquotation inside object-redirection rule too --- scsh-process.scm | 2 +- tests/run.scm | 7 ++++--- 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" -- cgit v1.2.3