diff options
Diffstat (limited to 'job-specifier.scm')
| -rw-r--r-- | job-specifier.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/job-specifier.scm b/job-specifier.scm index 3bba9b3..fd4d11b 100644 --- a/job-specifier.scm +++ b/job-specifier.scm @@ -243,7 +243,6 @@ ((list? time-proc) (lambda (current-time) (primitive-eval time-proc))) (else - (display "job: invalid first argument (next-time-function; should ") (display "be function, string or list)") (primitive-exit 3)))) @@ -254,7 +253,7 @@ ((list? action) (with-output-to-string (lambda () (display action))))))) (add-job (lambda (current-time) - (set! current-action-time current-time) + (set! current-action-time current-time) ;; ?? !!!! (time-proc current-time)) action displayable |