np/worktimer
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Replace (when (not ...)) to (unless ...)

Browse Source
This commit is contained in:
Nikolay Puzanov 2014-05-22 17:28:42 +04:00
parent c39cd5db93
commit ad9fb3446f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
worktimer.scm
View File

@ -395,10 +395,10 @@
;;; Print timesheet ;;; Print timesheet
(define (print-timesheet timesheet deadlines) (define (print-timesheet timesheet deadlines)
(when (not (null? deadlines)) (unless (null? deadlines)
(format #t "--- DEADLINES\n") (format #t "--- DEADLINES\n")
(print-deadlines deadlines)) (print-deadlines deadlines))
(when (not (null? timesheet)) (unless (null? timesheet)
(format #t "--- TIMESHEET\n") (format #t "--- TIMESHEET\n")
(print-timerecords timesheet))) (print-timerecords timesheet)))
@ -460,7 +460,7 @@
(define (add-deadlines-to-report! report deadlines) (define (add-deadlines-to-report! report deadlines)
(let walk ((tree report) (let walk ((tree report)
(path '())) (path '()))
(when (not (null? tree)) (unless (null? tree)
(let ((deadline (find-by-path deadlines path))) (let ((deadline (find-by-path deadlines path)))
(when deadline (when deadline
(set-car! (cddr tree) (cadr deadline)))) (set-car! (cddr tree) (cadr deadline))))
@ -474,7 +474,7 @@
(define (print-report report) (define (print-report report)
(let walk ((tree report) (let walk ((tree report)
(level 0)) (level 0))
(when (not (null? tree)) (unless (null? tree)
(format #t "~v_~a: ~a~a\n" (format #t "~v_~a: ~a~a\n"
level (car tree) level (car tree)
(time->string (cadr tree)) (time->string (cadr tree))