AboutSummaryRefsLogTreeCommitDiffStats
path: root/job-specifier.scm
diff options
context:
space:
mode:
authordale_mellor <dale_mellor>2005-10-23 12:29:19 +0000
committerdale_mellor <dale_mellor>2005-10-23 12:29:19 +0000
commitb1e921ffc81d460ef0ed7ab6163eb38b654ddf3b (patch)
tree4d5a51b409075d5c1617b7cab96a3b863d0b4f2a /job-specifier.scm
parent863b755293610f84bc0f871264195076f99a9392 (diff)
downloadmcron-b1e921ffc81d460ef0ed7ab6163eb38b654ddf3b.tar.gz
mcron-b1e921ffc81d460ef0ed7ab6163eb38b654ddf3b.tar.bz2
mcron-b1e921ffc81d460ef0ed7ab6163eb38b654ddf3b.zip
Changes requested by David D. Smith.1.0.2.rc1
Non-root install.
Diffstat (limited to 'job-specifier.scm')
-rw-r--r--job-specifier.scm3
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