Differences From Artifact [1c5a9172b0]:
- File tree.scm — part of check-in [cdcc055649] at 2015-06-23 08:10:32 on branch v1.60 — Got the tree working. Oops. Forgot that node0 was not dynamic (currently) (user: mrwellan, size: 5327) [annotate] [blame] [check-ins using] [more...]
To Artifact [5c27bcda2b]:
- File tree.scm — part of check-in [75c0c4c195] at 2016-07-01 08:41:26 on branch v1.61 — Partial migration of *data* to a defstruct (user: mrwellan, size: 5327) [annotate] [blame] [check-ins using] [more...]
| ︙ | |||
133 134 135 136 137 138 139 | 133 134 135 136 137 138 139 140 141 142 143 144 | - + |
#:selection-cb
(lambda (obj id state)
;; (print "obj: " obj ", id: " id ", state: " state)
(let* ((run-path (tree:node->path obj id))
(run-id (tree-path->run-id (cdr run-path))))
(if run-id
(begin
|