Commit 8373ff37 authored by Alastair Bridgewater's avatar Alastair Bridgewater
Browse files

sheet/sheet-hierarchy-protocol: Fix bug in MAP-OVER-SHEETS.

  * An easy oversight: MAP-OVER-SHEETS only called FUNCTION for
SHEET and its immediate children, not all of its descendents.

  * Fixed, by introducing a lambda to recursively call
MAP-OVER-SHEETS from MAP.
parent 807aec8c
......@@ -148,6 +148,9 @@
;; suggests breadth-first search. We'll go with depth-first.
(:method (function (sheet sheet))
(funcall function sheet)
(map 'nil function (sheet-children sheet))))
(map 'nil
(lambda (child)
(map-over-sheets function child))
(sheet-children sheet))))
;;; EOF
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment