guile/guile-core/guile-config ChangeLog guile-c...

[Dirk Herrmann]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Dirk Herrmann <address@hidden>  00/11/28 03:48:01

Modified files:
        guile-core/guile-config: ChangeLog guile-config.in 

Log message:
        * Don't use make-shared-substring any more.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/guile-config/ChangeLog.diff?r1=1.18&r2=1.19
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/guile-config/guile-config.in.diff?r1=1.10&r2=1.11

Patches:
Index: guile/guile-core/guile-config/ChangeLog
diff -u guile/guile-core/guile-config/ChangeLog:1.18 
guile/guile-core/guile-config/ChangeLog:1.19
--- guile/guile-core/guile-config/ChangeLog:1.18        Wed Nov  1 08:13:38 2000
+++ guile/guile-core/guile-config/ChangeLog     Tue Nov 28 03:48:01 2000
@@ -1,3 +1,8 @@
+2000-11-28  Dirk Herrmann  <address@hidden>
+
+       * guile-config.in (build-link):  Use substring instead of
+       make-shared-substring.
+
 2000-11-01  Dirk Herrmann  <address@hidden>
 
        * guile-config.in (display-line-port):  Make sure all output is
Index: guile/guile-core/guile-config/guile-config.in
diff -u guile/guile-core/guile-config/guile-config.in:1.10 
guile/guile-core/guile-config/guile-config.in:1.11
--- guile/guile-core/guile-config/guile-config.in:1.10  Wed Nov  1 08:13:38 2000
+++ guile/guile-core/guile-config/guile-config.in       Tue Nov 28 03:48:01 2000
@@ -130,9 +130,9 @@
     (let* ((base (basename path))
           (len (string-length base)))
       (if (and (> len 5)
-              (string=? (make-shared-substring base 0 3) "lib")
-              (string=? (make-shared-substring base (- len 2)) ".a"))
-         (make-shared-substring base 3 (- len 2))
+              (string=? (substring base 0 3) "lib")
+              (string=? (substring base (- len 2)) ".a"))
+         (substring base 3 (- len 2))
          #f)))
 
   (if (> (length args) 0)