diff --git a/src/GM.hs b/src/GM.hs index 6c9edb5..1b8d3a5 100644 --- a/src/GM.hs +++ b/src/GM.hs @@ -156,7 +156,6 @@ step st = case head (st ^. gmCode) of h = st ^. gmHeap n' = show n - -- Core Rule 2. (no sharing) -- pushInt :: Int -> GmState -> GmState -- pushInt n st = st