srfi-67 #:replace work

* module/srfi/srfi-67.scm (string-compare, string-compare-ci): #:replace
  these bindings.

diff --git a/module/srfi/srfi-67.scm b/module/srfi/srfi-67.scm
index 8ce8de0..7a43ee5 100644 (file)
--- a/module/srfi/srfi-67.scm
+++ b/module/srfi/srfi-67.scm
@@ -77,11 +77,10 @@
             real-compare
             refine-compare
             select-compare
-            string-compare
-            string-compare-ci
             symbol-compare
             vector-compare
             vector-compare-as-list)
+  #:replace (string-compare string-compare-ci)
   #:use-module (srfi srfi-27))
 
 (include-from-path "srfi/srfi-67/compare.scm")