aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--examples/working-compiler/run_once.test11
1 files changed, 11 insertions, 0 deletions
diff --git a/examples/working-compiler/run_once.test b/examples/working-compiler/run_once.test
new file mode 100644
index 0000000..6a399f9
--- /dev/null
+++ b/examples/working-compiler/run_once.test
@@ -0,0 +1,11 @@
+{ "}" | *
+ { ==f 0 ==running
+ { f } { * }" ; { =*f { running not { 1 =running f 0 =running } rep } } ;
+ } *
+}" "}!" defq
+
+{
+ 0 ==a
+ { /g_runninng dump a dump g }! /g deffst
+ 1 |g rep
+} *