summaryrefslogtreecommitdiffstats
path: root/requires.scm
blob: bd4b8bf7fc096d41aaa5eb368f927d2833f3ba3f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
;;; "require.scm" Trampoline to slib/require.scm

(set! library-vicinity
  (let* ((vl (case (software-type)
	       ((AMIGA)	'(#\: #\/))
	       ((MS-DOS WINDOWS ATARIST OS/2)	'(#\\ #\/))
	       ((MACOS THINKC)	'(#\:))
	       ((NOSVE)	'(#\: #\.))
	       ((UNIX COHERENT)	'(#\/))
	       ((VMS)	'(#\: #\]))))
	 (iv (implementation-vicinity))
	 (vc (and (positive? (string-length iv))
		  (string-ref iv (+ -1 (string-length iv)))))
	 (vs (if (memv vc vl) (string vc) "/"))
	 (lv (let loop ((pos (+ -2 (string-length iv))))
	       (cond ((or (< pos 0) (not vs))
		      (string-append iv ".." vs "slib" vs))
		     ((memv (string-ref iv pos) vl)
		      (string-append (substring iv 0 (+ 1 pos)) "slib" vs))
		     (else (loop (- pos 1)))))))
    (lambda () lv)))
(load (in-vicinity (library-vicinity) "require"))