Changes requested by David D. Smith.
Non-root install.
This commit is contained in:
parent
863b755293
commit
b1e921ffc8
10 changed files with 161 additions and 81 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue