~ chicken-core (master) 74deac55526cefb2d4c6a644f0395b6cb2023fdc

commit 74deac55526cefb2d4c6a644f0395b6cb2023fdc
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Dec 4 13:00:35 2024 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Dec 4 13:00:35 2024 +0100

    unused code

diff --git a/support.scm b/support.scm
index c7eeb6b5..b81b00b3 100644
--- a/support.scm
+++ b/support.scm
@@ -1459,15 +1459,6 @@
     (values vars hvars) ) )		; => freevars hiddenvars
 
 
-;;; Some pathname operations:
-
-(define (chop-separator str)		; Used only in batch-driver.scm
-  (let ([len (sub1 (string-length str))])
-    (if (and (> len 0)
-	     (memq (string-ref str len) '(#\\ #\/)))
-	(substring str 0 len)
-	str) ) )
-
 ;;; Special block-variable literal type:
 
 (define-record block-variable-literal