From 799cc8e398181933839395d7d24f275711471a87 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Mon, 4 Dec 2023 16:57:43 -0700
Subject: [PATCH] ugh

---
 src/GM.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/GM.hs b/src/GM.hs
index 95aa154..fff856c 100644
--- 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