ensure that we don't call JOB-STATUS und running jobs

2005-08-12 13:28:54 +00:00 · 2005-08-12 13:28:54 +00:00 · c9f986f8cc
parent 172d0e543a
commit c9f986f8cc
1 changed files with 3 additions and 1 deletions
--- a/scheme/job-viewer.scm
+++ b/scheme/job-viewer.scm
@ -179,7 +179,9 @@

 	  (,(if (job-end-time job) (job-status job) #f)
 	   "status:"
-	   ,(format-job-status job))
+	   ,(if (job-end-time job)
+		(format-job-status job)
+		"n/a"))

 	  (,(job-start-time job) 
 	   "start:"