fix

fnl/init.fnl

@@ -19,11 +19,9 @@
 (global in
   (fn [x lst]
     "Returns true if <x> is in <lst>"
-    (var found nil)
-    (each [k v (pairs lst)]
-      (when (= x v)
-        (set found true)))
-    found))
+    (accumulate [found false
+                 _ v (pairs lst)]
+      (or found (= x v)))))
 
 ;; car and cdr to let the magic begin
 (global car

fnl/mods/tools/telescope.fnl

@@ -212,7 +212,7 @@
                             :<C-e>
                             (fn []
                               (var nwd (first_dir_from_entry prompt_buf cwd))
-                              (when (should_cd (. opts :cwd) nwd)
+                              (when (should_cd cwd nwd)
                                 (set cwd nwd)
                                 (tset opts :cwd cwd)
                                 (tset opts :entry_maker (make_entry.gen_from_file opts))
@@ -222,7 +222,7 @@
                             :<tab>
                             (fn []
                               (var nwd (all_dirs_from_entry prompt_buf cwd))
-                              (when (should_cd (. opts :cwd) nwd)
+                              (when (should_cd cwd nwd)
                                 (set cwd nwd)
                                 (tset opts :cwd cwd)
                                 (tset opts :entry_maker (make_entry.gen_from_file opts))

tests/test.fnl

@@ -113,8 +113,8 @@
 
 (assert= true (in 2 [1 2 3]))
 (assert= true (in 2 {:a 1 :b 2 :c 3}))
-(assert= nil (in 2 [1 3 4]))
-(assert= nil (in 2 {:a 1 :b 3 :c 4}))
+(assert= false (in 2 [1 3 4]))
+(assert= false (in 2 {:a 1 :b 3 :c 4}))
 
 ;;(cons s t)
 (assert-eq [1 2 3 4 5 6] (cons [1 2 3] [4 5 6]))