fix regensym

src/expand.clj

@@ -524,7 +524,7 @@
                         (into %
                               (map-indexed
                                (fn [n a]
-                                 [a (symbol (str "s" (+ (dec (count r)) n)))])
+                                 [a (symbol (str "s" (+ (count %) n)))])
                                r))))]
            #_(->Variable sym (set (map #(get syms %) scopes)))
            [sym (set (map #(get syms %) scopes))])