diff --git a/lib/compiler.sx b/lib/compiler.sx
index c385871d..1835f91a 100644
--- a/lib/compiler.sx
+++ b/lib/compiler.sx
@@ -218,8 +218,6 @@
             (compile-cond em args scope tail?)
             (= name "case")
             (compile-case em args scope tail?)
-            (= name "match")
-            (compile-match em args scope tail?)
             (= name "->")
             (compile-thread em args scope tail?)
             (= name "defcomp")
@@ -244,10 +242,14 @@
             (emit-op em 2)
             (= name "defeffect")
             (emit-op em 2)
+            (= name "defisland")
+            (compile-defcomp em args scope)
             (= name "quasiquote")
             (compile-quasiquote em (first args) scope)
             (= name "letrec")
             (compile-letrec em args scope tail?)
+            (= name "match")
+            (compile-match em args scope tail?)
             :else (compile-call em head args scope tail?)))))))
 
 (define