Merge semantics: eval rules, capabilities, modules, geography pages

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>

lib/tree-tools.sx

@@ -1315,3 +1315,18 @@
                       (for-each (fn (child) (walk child bound)) args)))))))))
       (walk node (dict))
       result)))
+
+(define find-use-declarations :effects ()
+  (fn (nodes)
+    (let ((uses (list)))
+      (for-each (fn (node)
+        (when (and (list? node) (>= (len node) 2)
+                   (= (type-of (first node)) "symbol")
+                   (= (symbol-name (first node)) "use"))
+          (for-each (fn (arg)
+            (cond
+              (= (type-of arg) "symbol") (append! uses (symbol-name arg))
+              (= (type-of arg) "string") (append! uses arg)))
+            (rest node))))
+        (if (list? nodes) nodes (list nodes)))
+      uses)))