remove debug code

2024-02-13 11:51:10 -07:00
parent 81b019e659
commit 968832bfaf
1 changed files with 0 additions and 10 deletions
--- a/examples/rlp/QuickSort.rl
+++ b/examples/rlp/QuickSort.rl
@@ -26,15 +26,5 @@ qsort l = case l of
 list = Cons 9 (Cons 2 (Cons 3 (Cons 2
            (Cons 5 (Cons 2 (Cons 12 (Cons 89 Nil)))))))

-list2 = Cons 2 (Cons 3 Nil)
-
-lt :: Int# -> Int# -> Bool
-lt a = (>=# a)
-
-gte :: Int# -> Int# -> Bool
-gte a = (<# a)
-
-id x = x
-
 main = print# (qsort list)