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

Issue #183 - Support system-level (cyclone) libs

Browse source
This commit is contained in:
Justin Ethier 2017-03-19 21:30:30 +00:00
parent bc07af7109
commit 3b4139ac78
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/base.sld
View file

@ -346,7 +346,8 @@
(filename (filename
(substring filename* 1 (string-length filename*)))) (substring filename* 1 (string-length filename*))))
(if (or (equal? 'scheme (car import)) (if (or (equal? 'scheme (car import))
(equal? 'srfi (car import))) (equal? 'srfi (car import))
(equal? 'cyclone (car import)))
(string-append (Cyc-installation-dir 'sld) "/" filename) ;; Built-in library (string-append (Cyc-installation-dir 'sld) "/" filename) ;; Built-in library
filename))) filename)))
(define (_lib:import->library-name import) (define (_lib:import->library-name import)

4
scheme/cyclone/libraries.sld
View file

@ -242,7 +242,8 @@
(filename (filename
(substring filename* 1 (string-length filename*))) (substring filename* 1 (string-length filename*)))
(dir (if (or (tagged-list? 'scheme import) (dir (if (or (tagged-list? 'scheme import)
(tagged-list? 'srfi import)) (tagged-list? 'srfi import)
(tagged-list? 'cyclone import))
(Cyc-installation-dir 'sld) (Cyc-installation-dir 'sld)
""))) "")))
(call/cc (call/cc
@ -273,6 +274,7 @@
(string-append path "" include)) (string-append path "" include))
(dir (if (or (tagged-list? 'scheme import) (dir (if (or (tagged-list? 'scheme import)
;(tagged-list? 'srfi import) ;(tagged-list? 'srfi import)
(tagged-list? 'cyclone import)
) )
(Cyc-installation-dir 'sld) (Cyc-installation-dir 'sld)
""))) "")))