summaryrefslogtreecommitdiffstats
path: root/require.scm
diff options
context:
space:
mode:
Diffstat (limited to 'require.scm')
-rw-r--r--require.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/require.scm b/require.scm
index ec97d7a..8ea6bb5 100644
--- a/require.scm
+++ b/require.scm
@@ -17,7 +17,7 @@
;promotional, or sales literature without prior written consent in
;each case.
;@
-(define *SLIB-VERSION* "3a2")
+(define *slib-version* "3a2")
;;;; MODULES
;@
@@ -28,11 +28,11 @@
(let ((expr (and (file-exists? path)
(call-with-input-file path (lambda (port) (read port))))))
(and (list? expr) (= 3 (length expr))
- (eq? (car expr) 'define) (eq? (cadr expr) '*SLIB-VERSION*)
+ (eq? (car expr) 'define) (eq? (cadr expr) '*slib-version*)
(string? (caddr expr)) (caddr expr))))
(define (catalog/require-version-match? slibcat)
- (let* ((apair (assq '*SLIB-VERSION* slibcat))
+ (let* ((apair (assq '*slib-version* slibcat))
(req (in-vicinity (library-vicinity)
(string-append "require" (scheme-file-suffix))))
(reqvers (slib:version req)))
@@ -40,7 +40,7 @@
(slib:warn "can't find " req) #f)
((not apair) #f)
((not (equal? reqvers (cdr apair))) #f)
- ((not (equal? reqvers *SLIB-VERSION*))
+ ((not (equal? reqvers *slib-version*))
(slib:warn "The loaded " req " is stale.")
#t)
(else #t))))
@@ -245,7 +245,7 @@
(define slib:report-version
(lambda ()
(report:print
- 'SLIB *SLIB-VERSION* 'on (scheme-implementation-type)
+ 'SLIB *slib-version* 'on (scheme-implementation-type)
(scheme-implementation-version) 'on (software-type))))
(define slib:report-locations