summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1996-11-20 21:06:05 +0000
committerJim Blandy <jimb@red-bean.com>1996-11-20 21:06:05 +0000
commit84d219d43d5514e1c07f0fab2d9b4b007c328084 (patch)
treea26c8813fd1bfa87eebfe2061d3789fc9dd99c0c
parentce4a361d9979cc1d8db518bcabb7c5bf8f645baa (diff)
downloadguile-84d219d43d5514e1c07f0fab2d9b4b007c328084.tar.gz
* slib.scm (slib-parent-dir): Use string-length, not length.
(Thanks to Bernard Urban.)
-rw-r--r--ice-9/slib.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/ice-9/slib.scm b/ice-9/slib.scm
index 2ec76d32b..8d9d66b76 100644
--- a/ice-9/slib.scm
+++ b/ice-9/slib.scm
@@ -127,7 +127,7 @@
(define slib-parent-dir
(let* ((path (%search-load-path "slib/require.scm")))
- (make-shared-substring path 0 (- (length path) 17))))
+ (make-shared-substring path 0 (- (string-length path) 17))))
(define-public (implementation-vicinity)
(string-append slib-parent-dir "/"))