open folder recursive

cac-t-u-s · Jan 2, 2020 · 09899f8 · 09899f8
1 parent 3cb5f85
commit 09899f8
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/om/src/kernel/windows/om-windows.lisp b/om/src/kernel/windows/om-windows.lisp
@@ -247,7 +247,8 @@
           (setf *last-open-dir* folder)
           (let ((files (om-directory folder :type (append 
                                                    (mapcar #'doctype-to-extension *om-doctypes*)
-                                                   (doctype-to-ext-list :old)))))
+                                                   (doctype-to-ext-list :old))
+                                     :recursive t)))
             (loop for file in files 
                   do (catch :load-error
                        (handler-bind ((error #'(lambda (e)