diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-24 19:37:30 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-24 19:37:30 +0200 |
| commit | 9dbccc010a42dee89f0761b44577f80d18933814 (patch) | |
| tree | 4f6e0be3f0c64cb1e263bdfc1c3eeeac778ed7cf | |
| parent | Remembered about define-values existance. (diff) | |
| download | calp-9dbccc010a42dee89f0761b44577f80d18933814.tar.gz calp-9dbccc010a42dee89f0761b44577f80d18933814.tar.xz | |
Remove surpurflous lambda.
| -rw-r--r-- | module/output/html.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index a58fce0c..197b0735 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -49,7 +49,7 @@ ;; @var{x} is how for left in the container we are. (let inner ((x 0) - (tree (make-tree (lambda (head e) (overlapping? head e)) + (tree (make-tree overlapping? (sort* lst time>? (lambda (e) (event-length/day e start-of-day)))))) (if (null? tree) #f (let ((w (/ (- 1 x) |