modules.nv
· 460 B · Text
Ham
Playground
|:module: foo? :: (do something) :shared stack: $x $y $z|
:shared stack: $z $y $x
|:module: bar? :: (do something) :shared stack: $x $y $z|
:shared stack: $y $x $z
|:: (do something) :shared stack: $x $y $z|
:shared stack: ($x $y $z)
|:: ($module {)| :module: $module
|:: } :module: $module|
|:: }|
:: error :message: unbalanced module usage
||::(
foo {
do something
bar {
do something
}
do something
}
do something
) :shared stack: x y z
| 1 | |:module: foo? :: (do something) :shared stack: $x $y $z| |
| 2 | :shared stack: $z $y $x |
| 3 | |
| 4 | |:module: bar? :: (do something) :shared stack: $x $y $z| |
| 5 | :shared stack: $y $x $z |
| 6 | |
| 7 | |:: (do something) :shared stack: $x $y $z| |
| 8 | :shared stack: ($x $y $z) |
| 9 | |
| 10 | |:: ($module {)| :module: $module |
| 11 | |:: } :module: $module| |
| 12 | |:: }| |
| 13 | :: error :message: unbalanced module usage |
| 14 | |
| 15 | ||::( |
| 16 | foo { |
| 17 | do something |
| 18 | bar { |
| 19 | do something |
| 20 | } |
| 21 | do something |
| 22 | } |
| 23 | do something |
| 24 | ) :shared stack: x y z |