Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 12:35:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #196 - Check system folder for libraries

Browse source 
Check sys folder if a library cannot be found, before giving up and checking local dir.
This commit is contained in:
Justin Ethier 2017-06-14 21:37:10 -04:00
parent 27caeb3fbf
commit 52d764209b
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
scheme/cyclone/libraries.sld
View file

@ -284,9 +284,10 @@
(return f)))) (return f))))
(append prepend-dirs (list dir) append-dirs)) (append prepend-dirs (list dir) append-dirs))
;; Not found, just return base name ;; Not found, just return base name
(if (> (string-length dir) 0) (lib:check-system-path
(string-append dir "/" filename) (if (> (string-length dir) 0)
filename))) (string-append dir "/" filename)
filename))))
)) ))
;; Get path to directory that contains the library ;; Get path to directory that contains the library
@ -316,9 +317,10 @@
(return f)))) (return f))))
(append prepend-dirs (list dir) append-dirs)) (append prepend-dirs (list dir) append-dirs))
;; Not found, just return base name ;; Not found, just return base name
(if (> (string-length dir) 0) (lib:check-system-path
(string-append dir "/" filename) (if (> (string-length dir) 0)
filename))) (string-append dir "/" filename)
filename))))
;(if (tagged-list? 'scheme import) ;(if (tagged-list? 'scheme import)
; (string-append (Cyc-installation-dir 'sld) "/" path) ;; Built-in library ; (string-append (Cyc-installation-dir 'sld) "/" path) ;; Built-in library
; path) ; path)