remove debug tracers

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)))))))
 

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\