scsh-conservatory
/
scsh-make
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cosmetics for display-job-output

This commit is contained in:
jottbee 2005-03-12 08:24:44 +00:00
parent cafba717cf
commit 05600a0c92
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
job.scm
View File

@ -15,11 +15,11 @@
(define (display-job-output j-res) (define (display-job-output j-res)
(display (display
(string-append (string-append
"job finished with output exitno:\n" ";;; job finished with exitno: "
(number->string (job-res-errno j-res)) "\n" (number->string (job-res-errno j-res)) "\n"
"job finished with output stdout:\n" ";;; job finished with stdout: "
(job-res-stdout j-res) "\n" (job-res-stdout j-res) "\n"
"job finished with output stderr:\n" ";;; job finished with stderr: "
(job-res-stderr j-res) "\n")) (job-res-stderr j-res) "\n"))
(newline)) (newline))