diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld
index 89f6d1a3..26fe492d 100644
--- a/scheme/cyclone/transforms.sld
+++ b/scheme/cyclone/transforms.sld
@@ -183,17 +183,6 @@
 
 ;; Utilities.
 
-(cond-expand
-  (cyclone
-    ; member : symbol sorted-set[symbol] -> boolean
-    (define (member sym S)
-      (if (not (pair? S))
-          #f
-          (if (eq? sym (car S))
-              #t
-              (member sym (cdr S))))))
-  (else #f))
-
 (cond-expand
   (cyclone
     ; void : -> void