diff options
author | Jim Blandy <jimb@red-bean.com> | 1996-11-20 21:06:05 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1996-11-20 21:06:05 +0000 |
commit | 84d219d43d5514e1c07f0fab2d9b4b007c328084 (patch) | |
tree | a26c8813fd1bfa87eebfe2061d3789fc9dd99c0c | |
parent | ce4a361d9979cc1d8db518bcabb7c5bf8f645baa (diff) | |
download | guile-84d219d43d5514e1c07f0fab2d9b4b007c328084.tar.gz |
* slib.scm (slib-parent-dir): Use string-length, not length.
(Thanks to Bernard Urban.)
-rw-r--r-- | ice-9/slib.scm | 2 |
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 "/")) |