From 0e1adc46b324f108d0caaa4cd977ad1043ff3fe2 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Sun, 3 Mar 2013 15:57:12 +0100
Subject: LISP style conds

---
 compiler/standard.ey                  | 7 +++++++
 examples/working-compiler/arrays.test | 1 +
 2 files changed, 8 insertions(+)
 create mode 120000 examples/working-compiler/arrays.test

diff --git a/compiler/standard.ey b/compiler/standard.ey
index b294da8..71d4616 100644
--- a/compiler/standard.ey
+++ b/compiler/standard.ey
@@ -49,4 +49,11 @@
   [ s keys { s -01 . } each ]
 } /values deff
 
+{ _ =*conds len ==max
+  0 ==i { i max lt } {
+    i conds { i 1 add conds * max =i } { } ? *
+    i 2 add =i
+  } loop
+} /conds deff
+
 # vim: syn=elymas
diff --git a/examples/working-compiler/arrays.test b/examples/working-compiler/arrays.test
new file mode 120000
index 0000000..1d39fd2
--- /dev/null
+++ b/examples/working-compiler/arrays.test
@@ -0,0 +1 @@
+../working/arrays.ey
\ No newline at end of file
-- 
cgit v1.2.3