reduce chars

bootstrap.fnl

@@ -1,5 +1,5 @@
 (local m (require "main.min.fnl"))
 
-(set _G.setup m.setup)
-(set _G.draw m.draw)
-(set _G.keyPressed m.key-pressed)
+(set _G.setup m.s)
+(set _G.draw m.d)
+(set _G.keyPressed m.k)

main.fnl

@@ -40,7 +40,7 @@
     (when won (text "YOU WIN" 100 400)))
 
 {
-  :setup setup
-  :draw draw
-  :key-pressed key-pressed
+  :s setup
+  :d draw
+  :k key-pressed
 }

minify.bb

@@ -58,7 +58,7 @@
 (def built-ins #{"fn" "local" "λ" "lambda" "require" "let" "+" "-" "/" "*" "<" ">" "<=" ">=" "not=" ".."
                  "var" "if" "when" "and" "or" "not" "do" "set" "each" "for" "while"
                  "true" "$1" "math.floor" "floor" "false" "nil" "size" "textSize" "background" "text" "random" "key"
-                 ":setup" ":draw" ":key-pressed" ":L5" "map" "color" "lerpColor"})
+                 ":s" ":d" ":k" ":L5" "map" "color" "lerpColor"})
 
 (defn collect-bindings [tokens]
   (reduce (fn [acc token]