λgitsite

Fix split tree leaf flattening

ober

45bafef385f1f7cdd089e0455a40f6a38c80dd14

diff --git a/lib/jerboa-emacs/qt/window.sls b/lib/jerboa-emacs/qt/window.sls
index e8cad8d..8ec50f9 100644
--- a/lib/jerboa-emacs/qt/window.sls
+++ b/lib/jerboa-emacs/qt/window.sls
@@ -77,7 +77,7 @@
   (def (split-tree-flatten node)
        "Return ordered flat list of qt-edit-window from tree, left-to-right."
        (cond
-         [(split-leaf? node) ((split-leaf-edit-window node))]
+         [(split-leaf? node) (list (split-leaf-edit-window node))]
          [(split-node? node)
           (apply
             append
diff --git a/src/jerboa-emacs/qt/window.ss b/src/jerboa-emacs/qt/window.ss
index e296ca1..7700a50 100644
--- a/src/jerboa-emacs/qt/window.ss
+++ b/src/jerboa-emacs/qt/window.ss
@@ -134,7 +134,7 @@
 (def (split-tree-flatten node)
   "Return ordered flat list of qt-edit-window from tree, left-to-right."
   (cond
-    ((split-leaf? node) [(split-leaf-edit-window node)])
+    ((split-leaf? node) (list (split-leaf-edit-window node)))
     ((split-node? node)
      (apply append (map split-tree-flatten (split-node-children node))))))