From a1849da175765350e013bdeecfa4e0ad3c066937 Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Wed, 27 Mar 2019 15:22:46 -0700 Subject: Autoformat (mostly just to do with the new blank-line-after-end-of-multi-indent-block rule --- lib/core/operators.nom | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'lib/core/operators.nom') diff --git a/lib/core/operators.nom b/lib/core/operators.nom index dbc0b18..229d846 100644 --- a/lib/core/operators.nom +++ b/lib/core/operators.nom @@ -1,5 +1,4 @@ #!/usr/bin/env nomsu -V7.0.0 - ### This file contains definitions of operators like "+" and "and". @@ -136,6 +135,7 @@ test: unless ($calls == 1): fail "Three-way comparison evaluated middle value multiple times" + ($x < $y < $z) parses as ((($a $b $c) -> (($a < $b) and ($b < $c))) $x $y $z) ($x <= $y < $z) parses as ((($a $b $c) -> (($a <= $b) and ($b < $c))) $x $y $z) ($x < $y <= $z) parses as ((($a $b $c) -> (($a < $b) and ($b <= $c))) $x $y $z) @@ -213,7 +213,7 @@ lua> "end" ### Unary operators test: - assume (-(5) == -5) + assume ((- 5) == -5) assume ((not (yes)) == (no)) -$ compiles to "(-(\($ as lua expr)))" (not $) compiles to "(not \($ as lua expr))" @@ -246,6 +246,7 @@ test: wrap $x around 3 unless ($x == 1): fail "wrap around failed" + ($var += $) parses as ($var = (($var or 0) + $)) ($var -= $) parses as ($var = (($var or 0) - $)) ($var *= $) parses as ($var = (($var or 1) * $)) @@ -253,4 +254,4 @@ test: ($var ^= $) parses as ($var = ($var ^ $)) ($var and= $) parses as ($var = ($var and $)) ($var or= $) parses as ($var = ($var or $)) -(wrap $var around $) parses as ($var = ($var wrapped around $)) +(wrap $var around $) parses as ($var = ($var wrapped around $)) \ No newline at end of file -- cgit v1.2.3