Fix the job list

part of darcs patch Sun Sep 18 12:25:51 EEST 2005  Eric Knauel <knauel@informatik.uni-tuebingen.de>
This commit is contained in:
eknauel 2005-09-27 08:59:07 +00:00
parent 2973bc8d99
commit 0280658d1c
1 changed files with 3 additions and 3 deletions

View File

@ -213,8 +213,8 @@
"-"))
(#f "run status:"
,(format-job-run-state job))
,(if (job-with-console? job)
`(,console-viewer "<View Console>" "")
,@(if (job-with-console? job)
`((,console-viewer "<View Console>" ""))
'())))
(- (result-buffer-num-lines buffer) 1)))