From 470a6fe7f987f7c5e5c1fa7b6b31956479ababed Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Mon, 23 Jul 2018 14:40:20 -0700 Subject: Fixed blocks starting with extra newline when they start with a comment. --- core/operators.nom | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'core/operators.nom') diff --git a/core/operators.nom b/core/operators.nom index 191aba9..6d489ff 100644 --- a/core/operators.nom +++ b/core/operators.nom @@ -114,7 +114,7 @@ test: action [set global x local y]: external %foozle = "inner" %y = "inner" - + set global x local y assume ((%foozle == "inner") and (%y == "outer")) or barf "external failed." @@ -131,7 +131,7 @@ test: with external [%foozle]: %foozle = "inner" %y = "inner" - + set global x local y assume ((%foozle == "inner") and (%y == "outer")) or barf ".." 'with external' failed. @@ -148,7 +148,7 @@ test: %z = 999 assume (%z == 999) or barf "'with' failed." assume (%x == 999) or barf "'with' assignment failed." - + assume (%x == 1) or barf "'with' scoping failed" assume (%z == (nil)) or barf "'with' scoping failed" @@ -200,8 +200,10 @@ test: local action [one]: external %calls = (%calls + 1) return 1 + assume (0 <= (one) <= 2) or barf "Three-way chained comparison failed." - assume (%calls == 1) or barf "Three-way comparison evaluated middle value multiple times" + assume (%calls == 1) or barf ".." + Three-way comparison evaluated middle value multiple times parse [%x < %y < %z] as (..) =lua "(function(x,y,z) return x < y and y < z; end)(\%x,\%y,\%z)" -- cgit v1.2.3