From 5cfbc5909bd33b5927f7b1fdb44944819563a385 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Mon, 29 Jun 2020 20:37:51 -0400
Subject: Layer 3 tests

---
 spec/reference.bqn | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'spec/reference.bqn')

diff --git a/spec/reference.bqn b/spec/reference.bqn
index 6b4f9f1f..6ecf59d3 100644
--- a/spec/reference.bqn
+++ b/spec/reference.bqn
@@ -151,7 +151,7 @@ Pick1←{
   𝕨↩𝕨+s×𝕨<0
   (⥊𝕩)⊑˜0(⊑⟜𝕨+⊑⟜s×⊢)´-↕⊸¬≠𝕨
 }
-Pickd←(∨´IsArray¨∘⊣)◶Pick1‿{Pickd⟜𝕩¨𝕨}
+Pickd←(∨´∘⥊IsArray¨∘⊣)◶Pick1‿{Pickd⟜𝕩¨𝕨}
 Pick←IsArray◶⥊‿⊢⊸Pickd
 
 match←{¬∘(0⊑𝕨)◶(1⊑𝕨)‿𝕩}´⟨
-- 
cgit v1.2.3