From 1e7976ef1cd453d8c499d8ea60f8c00cc46c4303 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Wed, 21 Oct 2015 12:53:30 +0200
Subject: Don't pollute stack on empty arrays in any/all

---
 compiler/standard.ey | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/standard.ey b/compiler/standard.ey
index a6b66ef..e66a684 100644
--- a/compiler/standard.ey
+++ b/compiler/standard.ey
@@ -28,8 +28,8 @@
   [ 1 -1202 1 add range { -110 sub a -01 }' each -- ] # TODO: rethink this one, seems overly complicated
 } /reverse deffd
 
-{ _ len { |or fold  }' { 0 }' ? * }' /any deffd
-{ _ len { |and fold }' { 1 }' ? * }' /all deffd
+{ _ len { |or  fold }' { -- 0 }' ? * }' /any deffd
+{ _ len { |and fold }' { -- 1 }' ? * }' /all deffd
 
 { =*p {
   [ -01 { _ p { } { -- } ? * } each ]
-- 
cgit v1.2.3