From 5592dadf5af7bd95890259af689a72ade528f600 Mon Sep 17 00:00:00 2001
From: Thomas White <taw@physics.org>
Date: Tue, 19 Oct 2021 20:06:06 +0200
Subject: Replace partial application functions with SRFI-26 "cut"

---
 guile/starlet/utils.scm | 11 -----------
 1 file changed, 11 deletions(-)

(limited to 'guile/starlet/utils.scm')

diff --git a/guile/starlet/utils.scm b/guile/starlet/utils.scm
index d5441cb..16e3364 100644
--- a/guile/starlet/utils.scm
+++ b/guile/starlet/utils.scm
@@ -22,8 +22,6 @@
   #:use-module (srfi srfi-1)
   #:export (print-hash-table
             copy-hash-table
-            partial
-            partial-start
             in-range
             mean
             flatten-sublists
@@ -47,15 +45,6 @@
     new-ht))
 
 
-(define (partial f second-val)
-  (lambda (first-val)
-    (f first-val second-val)))
-
-
-(define (partial-start f first-val)
-  (lambda args
-    (apply f first-val args)))
-
 
 (define (in-range a val1 val2)
   (or
-- 
cgit v1.2.3