diff options
| author | s-ol <s-ol@users.noreply.github.com> | 2020-08-14 10:22:08 +0000 |
|---|---|---|
| committer | s-ol <s+removethis@s-ol.nu> | 2025-03-02 14:24:49 +0000 |
| commit | 556aa925352a00a14724878d752f56422d654f5b (patch) | |
| tree | a0cc0982d6ea5f64a12834bbe9fa5bc4946e9d4b | |
| parent | fix alv.copilot.udp docs (diff) | |
| download | alive-556aa925352a00a14724878d752f56422d654f5b.tar.gz alive-556aa925352a00a14724878d752f56422d654f5b.zip | |
fix require and do
| -rw-r--r-- | alv/builtins.moon | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/alv/builtins.moon b/alv/builtins.moon index 11c073d..b1c8593 100644 --- a/alv/builtins.moon +++ b/alv/builtins.moon @@ -98,7 +98,7 @@ require_ = Constant.meta assert #tail == 1, "'require' takes exactly one parameter" node = L\push tail[1]\eval, scope - name = node\const!\unwrap 'str' + name = node\const!\unwrap T.str L\trace @, "loading module #{name}" super COPILOT\require name @@ -255,7 +255,7 @@ Evaluate `expr1`, `expr2`, … and return the value of the last expression." if result and result.metatype == '=' result = result.type\mk_sig result\unwrap! - super RTNode :children, result + super RTNode :children, :result if_ = Constant.meta meta: @@ -403,6 +403,7 @@ to_const = Constant.meta summary: "Assert expression is constant." examples: { '(= val)' } description: "Asserts that `val` is a constant expression and returns it." + value: class extends Op setup: (inputs) => super {} @@ -417,6 +418,7 @@ to_sig = Constant.meta description: " Casts !-stream to ~-stream by always reproducing the last received value. Since ~-streams cannot be emtpy, specifying an `initial` value is necessary." + value: class extends Op setup: (inputs) => { event, initial } = (evt! + sig!)\match inputs @@ -440,6 +442,7 @@ to_evt = Constant.meta - if `val` is a ~-stream, emits events on changes. - if `val` is a !-stream, emits a bang for each incoming event. - if `trig` is given, samples `sig` as a new event when `trig` arrives." + value: class extends Op pattern = (sig! + evt.bang) / (sig! / evt!)\rep(1,1) setup: (inputs) => |