diff --git a/radix/combinators.scm b/radix/combinators.scm
index 3012d0a..69926ff 100644
--- a/radix/combinators.scm
+++ b/radix/combinators.scm
@@ -41,10 +41,9 @@ if these arguments satisfy every other predicate in PREDICATES."
   "Returns a procedure that is the disjunction of every predicate in PREDICATES.
 The returned procedure takes an arbitrary number of arguments, and returns #t if
  these arguments satisfy exactly one predicate in PREDICATES, and #f otherwise."
-  (lambda args
-    (match (filter (partial (flip apply) args) predicates)
-      ((_)  #t)
-      (else #f))))
+  (match (filter (partial (flip apply) args) predicates)
+    ((_)  #t)
+    (else #f)))
 
 (define* ((inclusive-disjoin . predicates) . args)
   "Returns a procedure that is the inclusive disjunction of every predicate in