From fcc51e1b9c234ff677466abd58e40bc1cbedf563 Mon Sep 17 00:00:00 2001
From: Jonathan Chan <jcxz@cs.ubc.ca>
Date: Sat, 5 Dec 2020 22:29:48 -0800
Subject: [PATCH] Remove unused library functions.

---
 lib.rkt | 19 ++++++-------------
 1 file changed, 6 insertions(+), 13 deletions(-)

diff --git a/lib.rkt b/lib.rkt
index dc83313..99cac7b 100644
--- a/lib.rkt
+++ b/lib.rkt
@@ -1,7 +1,8 @@
-
 #lang racket
 
 (require
+  curly-fn
+  threading
   (only-in data/queue
            make-queue
            enqueue!)
@@ -9,7 +10,10 @@
            read-lines
            read-file))
 
-(provide problem-input
+(provide (all-from-out curly-fn
+                       threading)
+
+         problem-input
          problem-input-all
          problem-input-grouped
          show-solution
@@ -25,8 +29,6 @@
 
          ∘ ∂ ∂r $ %
          uncurry
-         apply*
-         apply-when
 
          string->number*
          string->symbol*
@@ -70,15 +72,6 @@
   (curry apply))
 (define $ uncurry)
 
-;; apply* : (a -> b) -> a -> b
-(define (apply* f a)
-  (f a))
-
-;; apply-when : a -> (a -> b) -> b
-;; Apply given function only when a is not #f; return #f otherwise
-(define (apply-when p f)
-  (and p (f p)))
-
 
 ;; IO helpers ;;