From c8e108df889f5926bb6d5aa2e9a506a24df752b6 Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Wed, 3 Mar 2010 20:29:13 +0100 Subject: [PATCH 1/1] Use function names instead of operators in the higher order CPU. --- "c\316\273ash.lhs" | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git "a/c\316\273ash.lhs" "b/c\316\273ash.lhs" index b5e074d..447e3ac 100644 --- "a/c\316\273ash.lhs" +++ "b/c\316\273ash.lhs" @@ -1272,9 +1272,9 @@ cpu :: CpuState -> Word -> [(Index 6, Index 6) | 4] cpu (State s) input addrs opc = (State s', out) where s' = [ fu (multiop opc) inputs (addrs!0) - , fu (+) inputs (addrs!1) - , fu (-) inputs (addrs!2) - , fu (*) inputs (addrs!3) + , fu add inputs (addrs!1) + , fu sub inputs (addrs!2) + , fu mul inputs (addrs!3) ] inputs = 0 +> (1 +> (input +> s)) out = head s' -- 2.30.2