Only compile Reciprocal and Or functions once

1 files changed, 2 insertions, 2 deletions

diff --git a/dc.bqn b/dc.bqn
index fb3aa8fe..657e2be3 100755
--- a/dc.bqn
+++ b/dc.bqn
@@ -107,10 +107,10 @@ Gen←{
   ⟩
 }
 
+rcp←⟨"x"⟩ GenFn "1÷x"
+or←⟨"w","x"⟩ GenFn "(w+x)-w∧x"
 Compile←{
   body←GenFn 𝕩
-  rcp←⟨"x"⟩ GenFn "1÷x"
-  or←⟨"w","x"⟩ GenFn "(w+x)-w∧x"
   f←⟨rcp,or,body⟩
   Gen ⟨(≠¨f)/⟨1‿1,2‿1,0‿1⟩⥊¨¨f64 ⋄ 2 ⋄ ∾f⟩
 }