blob: c16c696c411f52a230d37be37addab77c6a64272 (
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<Operation>)
[///
[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))
|