summaryrefslogtreecommitdiffstats
path: root/require.scm
diff options
context:
space:
mode:
authorBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:34 -0800
committerBryan Newbold <bnewbold@robocracy.org>2017-02-20 00:05:34 -0800
commit237c6e380aebdcbc70bd1c9ecf7d3f6effca2752 (patch)
tree9832fbdd6fbeedf3fc7f0e7923fe20b7d35b1499 /require.scm
parent5145dd3aa0c02c9fc496d1432fc4410674206e1d (diff)
downloadslib-237c6e380aebdcbc70bd1c9ecf7d3f6effca2752.tar.gz
slib-237c6e380aebdcbc70bd1c9ecf7d3f6effca2752.zip
Import Upstream version 3a3upstream/3a3
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..c8e8711 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* "3a3")
;;;; 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