std: Remove 'fun' alias for 'partial'

core/src/ys/std.clj

@@ -57,8 +57,6 @@
 
 (intern 'ys.std 'a clojure.core/identity)
 
-(intern 'ys.std 'fun clojure.core/partial)
-
 (intern 'ys.std 'just clojure.core/identity)
 
 (intern 'ys.std 'len clojure.core/count)

sample/advent/tree.ys

@@ -5,7 +5,7 @@ defn main(width=5):
 
 defn tree(width):
   top =: (width .. 1)
-    .map(fun(line width))
+    .map(partial(line width))
     .join("\n")
 
   trunk =: trunk(width) * 2

sample/rosetta-code/100-prisoners.ys

@@ -72,7 +72,7 @@ defn search-50-random-drawers(prisoner-number drawers):
   drawers:
     .shuffle()
     .take(50)
-    .filter(fun(== prisoner-number))
+    .filter(partial(== prisoner-number))
     .count()
     .eq(1)
 

sample/rosetta-code/sieve-of-eratosthenes.ys

@@ -21,6 +21,6 @@ defn primes-up-to(limit):
             add(i i 1))
     : aset(refs j false)
   cons 2:
-    map comp(inc fun(* 2)):
-      filter fun(aget refs):
+    map comp(inc partial(* 2)):
+      filter partial(aget refs):
         range(1 max-i)

ys/test/std.t

@@ -20,16 +20,7 @@ test::
 - note: "Short named functions for very common operations"
 - note: 'Short named functions'
 
-# A is for partials
-- code: (fun(+ 1) 41)
-  want: 42
-- code: call(fun(+ 1) 41)
-  want: 42
-- code: fun(+ 1).call(41)
-  want: 42
-- code: -"inc".call(41)
-  want: 42
-
+# Short named functions for very common operations
 - code: 'just: 123'
   want: 123
 - code: just('123')