diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-01-31 20:38:44 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-01-31 20:38:44 +0100 |
| commit | 2f842e30775a1ad86cce7e30438cfe1dcc067fdc (patch) | |
| tree | ce9ee856e622cdc32d88113ed4c9093d4f3b98d5 /module/calp/html/view/calendar | |
| parent | Repair warnings-are-error configuration item. (diff) | |
| download | calp-2f842e30775a1ad86cce7e30438cfe1dcc067fdc.tar.gz calp-2f842e30775a1ad86cce7e30438cfe1dcc067fdc.tar.xz | |
Add tree-node.
Diffstat (limited to 'module/calp/html/view/calendar')
| -rw-r--r-- | module/calp/html/view/calendar/shared.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/calp/html/view/calendar/shared.scm b/module/calp/html/view/calendar/shared.scm index de09e00a..11f1a70c 100644 --- a/module/calp/html/view/calendar/shared.scm +++ b/module/calp/html/view/calendar/shared.scm @@ -43,8 +43,8 @@ (unless (null? tree) (let ((w (/ (- 1 x) (+ 1 (length-of-longst-branch (left-subtree tree)))))) - (set! (width (car tree)) w - (x-pos (car tree)) x) + (set! (width (tree-node tree)) w + (x-pos (tree-node tree)) x) (inner (+ x w) (left-subtree tree)) (inner x (right-subtree tree)))))) |