msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

ugh

Browse Source
This commit is contained in:
crumbtoo
2023-12-04 16:57:43 -07:00
parent 6767bd0b4f
commit 799cc8e398
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GM.hs
View File

@@ -373,7 +373,7 @@ primitive2 box unbox f st
& advanceCode & advanceCode
& gmStats . stsPrimReductions %~ succ & gmStats . stsPrimReductions %~ succ
where where
(ax:ay:s) = st ^. gmStack (ay:ax:s) = st ^. gmStack
putNewStack = gmStack .~ s putNewStack = gmStack .~ s
x = unbox ax st x = unbox ax st
y = unbox ay st y = unbox ay st