summaryrefslogtreecommitdiff
path: root/ack.kpl
diff options
context:
space:
mode:
Diffstat (limited to 'ack.kpl')
-rw-r--r--ack.kpl8
1 files changed, 4 insertions, 4 deletions
diff --git a/ack.kpl b/ack.kpl
index 44df478..912ab34 100644
--- a/ack.kpl
+++ b/ack.kpl
@@ -11,13 +11,13 @@
}
? {
m = 0 { n + 1 }
- &(m > 0; n = 0) { ack `sync (m - 1; 1) }
- { ack `sync (m - 1; ack `sync (m; n - 1)) }
+ &(m > 0; n = 0) { ack `call (m - 1; 1) }
+ { ack `call (m - 1; ack `call (m; n - 1)) }
}
)
`export ack_string : Fn[m; n] $ (
- String $ ("ack("; m; " "; n; ") = "; ack `sync (m; n); "\n")
+ String $ ("ack("; m; " "; n; ") = "; ack `call (m; n); "\n")
)
`is_main Fn $ (
@@ -28,5 +28,5 @@
"Usage: "; args `get 0; " "; args `get 1; " <m> <n>\n"
)
}
- `print ack_string `sync (I64 $ args `get -2; I64 $ args `get -1)
+ `print ack_string `call (U64 $ args `get -2; U64 $ args `get -1)
)