From 141d45a8ba34fce1f8710ab5cf917eb5d679bf4e Mon Sep 17 00:00:00 2001 From: s-ol Date: Thu, 27 Jan 2022 14:58:29 +0100 Subject: test logic module --- alv-lib/logic.moon | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'alv-lib') diff --git a/alv-lib/logic.moon b/alv-lib/logic.moon index 763638c..d66f53a 100644 --- a/alv-lib/logic.moon +++ b/alv-lib/logic.moon @@ -1,4 +1,4 @@ -import PureOp, Constant, T, sig, evt from require 'alv.base' +import PureOp, Constant, T, any from require 'alv.base' all_same = (first, list) -> for v in *list @@ -14,10 +14,8 @@ tobool = (val) -> else true -any = sig! / evt! - class ReduceOp extends PureOp - pattern: any\rep 2, nil + pattern: any!\rep 2, nil type: T.bool tick: => @@ -107,7 +105,7 @@ not_ = Constant.meta examples: { '(not a)' } value: class extends PureOp - pattern: any\rep 1, 1 + pattern: any!\rep 1, 1 type: T.bool tick: => @out\set not tobool @inputs[1]! @@ -119,7 +117,7 @@ bool = Constant.meta description: "`false` if a is `false`, `nil` or `0`, `true` otherwise." value: class extends PureOp - pattern: any\rep 1, 1 + pattern: any!\rep 1, 1 type: T.bool tick: => @out\set tobool @inputs[1]! -- cgit v1.2.3