diff options
| author | Eduardo Julian | 2022-12-22 17:21:26 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-12-22 17:21:26 -0400 |
| commit | 6f1bf11af05bd03183fee7721ac99eca826ca041 (patch) | |
| tree | 9661fdef01ebb7e4c1ead05e839d608bfab86217 /stdlib/source/test/lux/world/finance/trade/session.lux | |
| parent | 4f4a96635abb04239102e4b72dc2a9c6f678dcd2 (diff) | |
Added some explicit machinery for the Any type.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/world/finance/trade/session.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/test/lux/world/finance/trade/session.lux b/stdlib/source/test/lux/world/finance/trade/session.lux index 70dde1b44..6c8be3332 100644 --- a/stdlib/source/test/lux/world/finance/trade/session.lux +++ b/stdlib/source/test/lux/world/finance/trade/session.lux @@ -28,13 +28,13 @@ (All (_ $) (-> (Currency $) Nat (Random (/.Session $)))) - (do random.monad + (do [! random.monad] [p0 (moneyT.random $ max_sub_units) p1 (moneyT.random $ max_sub_units) p2 (moneyT.random $ max_sub_units) p3 (moneyT.random $ max_sub_units) bullish? random.bit - volume random.nat] + volume (of ! each (n.% max_sub_units) random.nat)] (when (list.sorted money.< (list p0 p1 p2 p3)) (list low bottom top high) (in [/.#open (if bullish? |