From eb0b45facc3cdaf459f75b207f74d29366f51400 Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Sun, 3 Oct 2010 12:18:14 +0200
Subject: [PATCH] srfi-67 #:replace work

* module/srfi/srfi-67.scm (string-compare, string-compare-ci): #:replace
  these bindings.
---
 module/srfi/srfi-67.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/module/srfi/srfi-67.scm b/module/srfi/srfi-67.scm
index 8ce8de078..7a43ee50b 100644
--- 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")