blob: caa71f74fc4dd2ea9a2e41e440bfb8cf5d453523 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
(.module:
[lux (#- i64)]
[//
[runtime (#+ Operation)]
[// (#+ State)
[// ("operation/." monad)
[///
[host
["_" scheme (#+ Expression)]]]]]])
(def: #export bit
(-> Bit (Operation Expression))
(|>> _.bool operation/wrap))
(def: #export i64
(-> (I64 Any) (Operation Expression))
(|>> .int _.int operation/wrap))
(def: #export f64
(-> Frac (Operation Expression))
(|>> _.float operation/wrap))
(def: #export text
(-> Text (Operation Expression))
(|>> _.string operation/wrap))
|