ugh

2023-12-04 16:57:43 -07:00
parent 6767bd0b4f
commit 799cc8e398
1 changed files with 1 additions and 1 deletions
--- a/src/GM.hs
+++ b/src/GM.hs
@@ -373,7 +373,7 @@ primitive2 box unbox f st
        & advanceCode
        & gmStats . stsPrimReductions %~ succ
    where
-        (ax:ay:s) = st ^. gmStack
+        (ay:ax:s) = st ^. gmStack
        putNewStack = gmStack .~ s
        x = unbox ax st
        y = unbox ay st