From c7d035ae1a729232579a0fe41ed5affa131d3623 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:27 -0800
Subject: Import Upstream version 5d9

---
 requires.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'requires.scm')

diff --git a/requires.scm b/requires.scm
index 97d7cdd..cad8db0 100644
--- a/requires.scm
+++ b/requires.scm
@@ -1,6 +1,6 @@
 ;;; "require.scm" Trampoline to slib/require.scm
 
-(set! library-vicinity
+(define library-vicinity
   (let* ((vl (case (software-type)
 	       ((AMIGA) '(#\: #\/))
 	       ((MS-DOS WINDOWS ATARIST OS/2) '(#\\ #\/))
@@ -19,4 +19,3 @@
 		      (string-append (substring iv 0 (+ 1 pos)) "slib" vs))
 		     (else (loop (- pos 1)))))))
     (lambda () lv)))
-(load (in-vicinity (library-vicinity) "require"))
-- 
cgit v1.2.3