fix sugar

nim-works · Jan 31, 2024 · 38d3641 · 38d3641
1 parent be74745
commit 38d3641
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 20 deletions.
diff --git a/tests/t70_locals.nim b/tests/t70_locals.nim
@@ -501,3 +501,22 @@ suite "lifetimes":
       # destroy bar.m; eg. step == 9
 
     foo()
+
+import std/sugar
+
+suite "high-cal":
+  var r = 0
+  block:
+    ## sugary procedure arguments can be used in expressions
+    r = 0
+    proc bar(x: int): int {.cps: Cont.} =
+      inc r
+      result = x * 2
+
+    proc foo(fn: (int) -> int): int {.cps: Cont.} =
+      inc r
+      result = fn: bar(2)
+      inc r
+
+    check 12 == foo(x => x * 3)
+    check r == 3
diff --git a/tests/t71_sugar.nim b/tests/t71_sugar.nim