Fix some stuff

1 files changed, 6 insertions, 6 deletions

diff --git a/core/common.milch b/core/common.milch
index 2aa72a2..cab4203 100644
--- a/core/common.milch
+++ b/core/common.milch
@@ -1,11 +1,11 @@
 ;; Control flow
 ;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(let compose (\[f g]
+(let . (\[f g]
     (\[x] (f (g x)))))
 
 (let flow (\[fs]
-    (foldr compose id (reverse fs))))
+    (foldr . id (reverse fs))))
 
 (let pipe (\[x fs]
     ((flow fs) x)))
@@ -52,15 +52,15 @@
         0 true
         1 false)))
 
-(let odd? (compose not even?))
+(let odd? (. not even?))
 
 (let leq? (\[a b]
     (or?
         (eq? a b)
         (lt? a b))))
 
-(let rt? (compose not leq?))
-(let req? (compose not lt?))
+(let rt? (. not leq?))
+(let req? (. not lt?))
 
 (let max (\[a b]
     (match (lt? a b)
@@ -80,7 +80,7 @@
         (map (\[v]
             [(keyf v) v]) vals)))
 
-    (map (at 1) sorted)))
+    (map (. Result/Ok/get-value (at 1)) sorted)))
 
 (let take (\[n xs]
     (match n