From 9401659ae47d43f37829715d3877aef3af9f78d0 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Tue, 11 Dec 2018 18:37:25 -0800
Subject: [PATCH] del

---
 xenomorph/xenomorph/base.rkt | 13 -------------
 1 file changed, 13 deletions(-)

diff --git a/xenomorph/xenomorph/base.rkt b/xenomorph/xenomorph/base.rkt
index 75156cb0..10c9d897 100644
--- a/xenomorph/xenomorph/base.rkt
+++ b/xenomorph/xenomorph/base.rkt
@@ -70,19 +70,6 @@
 (define (symbol-append . syms)
   (string->symbol (apply string-append (map symbol->string syms))))
 
-;;;;;;;;;;;;;;;;;;;;;;;;; structing
-
-(define (->input-port arg)
-  (cond
-    [(bytes? arg) (open-input-bytes arg)]
-    [(input-port? arg) arg]
-    [else (raise-argument-error '->port "byte string or input port" arg)]))
-
-(define (reverse-bytes bstr) (apply bytes (reverse (bytes->list bstr))))
-
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
 (define xenomorph-base%
   (class* object% (codable<%> sizable<%>)
     (super-new)