diff options
-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 "/")) |