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 +++++++
 1 file changed, 7 insertions(+)

(limited to 'compiler')

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