From 237c6e380aebdcbc70bd1c9ecf7d3f6effca2752 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:34 -0800
Subject: Import Upstream version 3a3

---
 require.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'require.scm')

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
-- 
cgit v1.2.3