| summaryrefslogtreecommitdiff |
diff options
Diffstat (limited to 'src/Tonkadur/Execute.elm')
| -rw-r--r-- | src/Tonkadur/Execute.elm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Tonkadur/Execute.elm b/src/Tonkadur/Execute.elm index a65df88..865687b 100644 --- a/src/Tonkadur/Execute.elm +++ b/src/Tonkadur/Execute.elm @@ -273,7 +273,7 @@ set_random : ( Tonkadur.Types.State -> Tonkadur.Types.State ) -set_random address min max state = +set_random min max address state = let (value, next_random_seed) = (Random.step @@ -378,8 +378,8 @@ execute instruction state = (increment_program_counter (resolve_choice new_state)) (Tonkadur.Types.SetPC value) -> (set_pc value new_state) - (Tonkadur.Types.SetRandom address min max) -> - (increment_program_counter (set_random address min max new_state)) + (Tonkadur.Types.SetRandom min max address) -> + (increment_program_counter (set_random min max address new_state)) (Tonkadur.Types.SetValue address value) -> (increment_program_counter (set_value address value new_state)) |