Files
Nim/tests/effects/teffectsmisc.nim
ringabout 4e56bcfc0e closes #14216; add testcase (#20733)
(cherry picked from commit 87f7f50553)
2023-04-25 19:34:04 +02:00

40 lines
670 B
Nim

discard """
output: '''
printing from adder
'''
"""
import std/sugar
block:
proc makeAdder(a: int): (int) -> void =
proc discard_adder(x: int) {.closure.} =
discard a + x
proc echo_adder(x: int) {.closure.} =
echo("printing from adder")
if a > 0:
discard_adder
else:
echo_adder
let newAdder = makeAdder(0)
newAdder(5)
block:
proc makeAdder(a: int): (int) -> void =
proc discard_adder(x: int) {.closure.} =
discard a + x
proc echo_adder(x: int) {.closure.} =
echo("printing from adder")
if a > 0:
echo_adder
else:
discard_adder
let newAdder = makeAdder(0)
newAdder(5)