aboutsummaryrefslogtreecommitdiff
path: root/stdlib
diff options
context:
space:
mode:
authorEduardo Julian2019-09-15 23:17:55 -0400
committerEduardo Julian2019-09-15 23:17:55 -0400
commitc2577a665818b14adb7b0a0c1eaf326144d4447d (patch)
tree7f81ac38d677ef54a26c456f5a4ff96363ef093b /stdlib
parent7f72a44157581d4f7f37d3627abb63749b9b9793 (diff)
Added the ":let" macro to enable reuse of type fragments in larger types.
Diffstat (limited to '')
-rw-r--r--stdlib/source/lux.lux23
-rw-r--r--stdlib/source/lux/control/function/memo.lux3
2 files changed, 21 insertions, 5 deletions
diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux
index 9cc2254b2..6042457fe 100644
--- a/stdlib/source/lux.lux
+++ b/stdlib/source/lux.lux
@@ -1618,7 +1618,7 @@
(wrap (#Cons y ys)))}
xs)))
-(def:''' (monad/fold m f y xs)
+(def:''' (monad@fold m f y xs)
#Nil
## (All [m a b]
## (-> (Monad m) (-> a b (m b)) b (List a) (m b)))
@@ -1635,7 +1635,7 @@
(#Cons x xs')
(do m
[y' (f x y)]
- (monad/fold m f y' xs'))}
+ (monad@fold m f y' xs'))}
xs)))
(macro:' #export (if tokens)
@@ -1770,7 +1770,7 @@
[lastO (untemplate lastI)]
(wrap (form$ (list (tag$ ["lux" "Cons"]) (tuple$ (list lastO (tag$ ["lux" "Nil"])))))))}
lastI)]
- (monad/fold meta-monad
+ (monad@fold meta-monad
(function' [leftI rightO]
({[_ (#Form (#Cons [[_ (#Identifier ["" "~+"])] (#Cons [spliced #Nil])]))]
(let' [[[_module-name _ _] _] spliced]
@@ -4259,7 +4259,7 @@
tags)
pattern (tuple$ (list@map identifier$ locals))]
(do meta-monad
- [enhanced-target (monad/fold meta-monad
+ [enhanced-target (monad@fold meta-monad
(function (_ [m-local m-type] enhanced-target)
(do meta-monad
[m-structure (resolve-type-tags m-type)]
@@ -5881,3 +5881,18 @@
[no yes]
[off on]
)
+
+(macro: #export (:let tokens)
+ (case tokens
+ (^ (list [_ (#Tuple bindings)] bodyT))
+ (if (multiple? 2 (list@size bindings))
+ (return (list (` (..with-expansions [(~+ (|> bindings
+ ..as-pairs
+ (list@map (function (_ [localT valueT])
+ (list localT (` (..as-is (~ valueT))))))
+ (list@fold list@compose (list))))]
+ (~ bodyT)))))
+ (..fail ":let requires an even number of parts"))
+
+ _
+ (..fail "Wrong syntax for :let")))
diff --git a/stdlib/source/lux/control/function/memo.lux b/stdlib/source/lux/control/function/memo.lux
index 975d03148..253506508 100644
--- a/stdlib/source/lux/control/function/memo.lux
+++ b/stdlib/source/lux/control/function/memo.lux
@@ -38,7 +38,8 @@
(def: #export (open memo)
{#.doc (doc "Memoization where the memoized results can be re-used accross invocations.")}
(All [i o]
- (-> (Memo i o) (-> [(Dictionary i o) i] [(Dictionary i o) o])))
+ (:let [Memory (Dictionary i o)]
+ (-> (Memo i o) (-> [Memory i] [Memory o]))))
(let [memo (//.mixin (//.inherit ..memoization (//.from-recursive memo)))]
(function (_ [memory input])
(|> input memo (state.run memory)))))