feat: add the partial combinator to the (radix combinators) module

modules/radix/combinators.scm

@@ -8,6 +8,7 @@
             disjoin
             inclusive-disjoin
             flip
+            partial
             swap))
 
 (define ((all-of pred) lst)
@@ -39,6 +40,9 @@
             ((not (apply head-pred args)) (loop tail-preds))
             (else #f)))))
 
+(define ((partial proc . args) . more-args)
+  (apply proc (append args more-args)))
+
 (define ((flip proc) . args)
   (apply proc (reverse args)))