From b972316dacfe6e138d8d81b579ab6f1097fa1fc8 Mon Sep 17 00:00:00 2001
From: Marshall Lochbaum <mwlochbaum@gmail.com>
Date: Sat, 1 Aug 2020 18:46:05 -0400
Subject: Allow DGenFn to take a list of primitives as the left argument

---
 c.bqn | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/c.bqn b/c.bqn
index fc6dadc8..903db19e 100755
--- a/c.bqn
+++ b/c.bqn
@@ -205,9 +205,10 @@ prims←⟨
   ∘,○,⊸,⟜,⌾,⊘,◶,⎉,⚇,⍟
 ⟩
 DGenFn←{
+  p←𝕨⊣prims
   ⟨t,r,nVar,lits⟩←Tokenize𝕩
   ⟨bc,u,blk⟩←nVar‿r DParse t
-  o←(u-(vi+nVar-≠prims)×u≥vi)⊏prims∾LitVal¨lits
+  o←(u-(vi+nVar-≠p)×u≥vi)⊏p∾LitVal¨lits
   ⟨bc,o,⟨⟩,blk⟩
 }
 DRun←{
-- 
cgit v1.2.3