diff options
| author | Peter Bex <peter@more-magic.net> | 2012-10-02 15:40:44 +0100 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2012-10-02 15:40:44 +0100 |
| commit | 5aab937646bebb4998491def71f0653480a286f4 (patch) | |
| tree | 4a422192fd009f91c53bb6361670fdea8f445422 /scsh-process.scm | |
| parent | af93407cb40916a85d444dc62174d3b421b8842c (diff) | |
| download | scsh-process-5aab937646bebb4998491def71f0653480a286f4.tar.gz | |
Use implicit quasiquotation inside object-redirection rule too
Diffstat (limited to 'scsh-process.scm')
| -rw-r--r-- | scsh-process.scm | 2 |
1 files changed, 1 insertions, 1 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) |