diff options
| author | Drahflow <drahflow@gmx.de> | 2015-10-21 12:53:30 +0200 |
|---|---|---|
| committer | Drahflow <drahflow@gmx.de> | 2015-10-21 12:53:30 +0200 |
| commit | 1e7976ef1cd453d8c499d8ea60f8c00cc46c4303 (patch) | |
| tree | 2f1ecead23e707e4b416d3d257a0e2a135cdacb8 | |
| parent | 02618efcc90b8bcdbcd677337bd90f73cf164c28 (diff) | |
Don't pollute stack on empty arrays in any/all
| -rw-r--r-- | compiler/standard.ey | 4 |
1 files 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 ] |