Cleaned up random definition in interpreter

disco-lang · Jun 3, 2024 · 5111743 · 5111743
1 parent b92d501
commit 5111743
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/Disco/Interpret/CESK.hs b/src/Disco/Interpret/CESK.hs
@@ -432,9 +432,9 @@ appConst k = \case
   --------------------------------------------------
   -- Randomness
 
-  ORandom -> arity2 (\t g -> arity2 (\v1 v2 -> 
-      let (a,g') = R.randomR (vint v1,vint v2) (vgen g)
-      in out $ VPair (intv a) (genv g')) t)
+  ORandom -> arity2 . flip $ \g -> arity2 $ \v1 v2 -> 
+      let (a,g') = R.randomR (vint v1,vint v2) (vgen g) 
+      in out $ VPair (intv a) (genv g')
   OSeed -> out . VGen . (R.mkStdGen . fromIntegral . vint) 
   --------------------------------------------------
   -- Graph operations