Commits

Peter Bex  committed fdcc8f9

Use implicit quasiquotation inside object-redirection rule too

  • Participants
  • Parent commits 1e2ab99

Comments (0)

Files changed (2)

File scsh-process.scm

      (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)

File tests/run.scm

             (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"