From 8267548fabc713bb6eca2ff9cc79dcdb72a18709 Mon Sep 17 00:00:00 2001 From: crumbtoo Date: Tue, 13 Feb 2024 12:01:46 -0700 Subject: [PATCH] remove debug tracers --- examples/rlp/QuickSort.rl | 1 + src/GM.hs | 6 ++---- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/examples/rlp/QuickSort.rl b/examples/rlp/QuickSort.rl index 4d65229..c374aa6 100644 --- a/examples/rlp/QuickSort.rl +++ b/examples/rlp/QuickSort.rl @@ -23,6 +23,7 @@ qsort l = case l of greater = filter (<# a) as in append (append (qsort lesser) (Cons a Nil)) (qsort greater) +list :: List Int# list = Cons 9 (Cons 2 (Cons 3 (Cons 2 (Cons 5 (Cons 2 (Cons 12 (Cons 89 Nil))))))) diff --git a/src/GM.hs b/src/GM.hs index 942e661..5809f16 100644 --- a/src/GM.hs +++ b/src/GM.hs @@ -744,9 +744,8 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil compileE _ (Lit l) = compileEL l compileE g (Let NonRec bs e) = -- we use compileE instead of compileC - mconcat binders <> compileE (trc g') e <> [Slide d] + mconcat binders <> compileE g' e <> [Slide d] where - trc = traceWith (\s -> "compileE.g': "<>show s) d = length bs (g',binders) = mapAccumL compileBinder g bs @@ -796,8 +795,7 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil where n = length as binds = (NameKey <$> as) `zip` [0..] - g' = traceWith (\s -> "compileA.g': "<>show s) $ - binds ++ argOffset n g + g' = binds ++ argOffset n g c = compileE g' e compileA _ (Alter _ as e) = error "GM.compileA found an untagged\ \ constructor, which should have\