From fca1dd8dbe0b547164f8218f14abf61bcf5efea2 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Tue, 14 Apr 2015 21:55:57 +0200
Subject: Typed array application \o/

---
 compiler/standardClient.ey | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'compiler/standardClient.ey')

diff --git a/compiler/standardClient.ey b/compiler/standardClient.ey
index e26dd14..27d6455 100644
--- a/compiler/standardClient.ey
+++ b/compiler/standardClient.ey
@@ -651,8 +651,11 @@
     #     Run from right (stacktop) argument to left (stacklow) argument:
     #       Take topmost type, check whether it can be found in other stacks (from top)
     #         Eliminate all matching types via function or loop creation
-    { _ ==f _ sys .typed .inputs ==inputs
-              sys .typed .outputs ==outputs
+    { ==f
+      f sys .typed .type 7 eq { f { * }_ [ 0 ] [ 0 ] '' =f } rep
+
+      f sys .typed .inputs ==inputs
+      f sys .typed .outputs ==outputs
 
       outputs len 1 gt { "multi-output function in auto-loop" die } rep
 
-- 
cgit v1.2.3