diff options
| author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:27 -0800 |
|---|---|---|
| committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:05:27 -0800 |
| commit | c7d035ae1a729232579a0fe41ed5affa131d3623 (patch) | |
| tree | fb387f7c2a8e01cf603d4c75fbbaa68f711df986 /requires.scm | |
| parent | deda2c0fd8689349fea2a900199a76ff7ecb319e (diff) | |
| download | scm-c7d035ae1a729232579a0fe41ed5affa131d3623.tar.gz scm-c7d035ae1a729232579a0fe41ed5affa131d3623.zip | |
Import Upstream version 5d9upstream/5d9
Diffstat (limited to 'requires.scm')
| -rw-r--r-- | requires.scm | 3 |
1 files changed, 1 insertions, 2 deletions
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")) |