Allow DGenFn to take a list of primitives as the left argument

1 files changed, 2 insertions, 1 deletions

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←{