From 57a252a774b782c93ca9d2c8529da9932695b407 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Mon, 26 Sep 2016 21:46:48 +0200
Subject: Look, we can have non-recursive functions :P

---
 examples/working-compiler/run_once.test | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 examples/working-compiler/run_once.test

(limited to 'examples')

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
+} *
-- 
cgit v1.2.3