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

Issue #281 - Try importing file locally first

Browse source
This commit is contained in:
Justin Ethier 2019-11-21 13:39:45 -05:00
parent c63f6a1eb2
commit fc108f067f
2 changed files with 5 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scheme/cyclone/array-list.scm
View file

@ -1,4 +1,4 @@
#|
|
| Copyright (c) 2017 Koz Ross
|
| Permission is hereby granted, free of charge, to any person obtaining a copy of

11
scheme/cyclone/libraries.sld
View file

@ -307,7 +307,7 @@
;(tagged-list? 'srfi import)
(tagged-list? 'cyclone import)
)
(list (Cyc-installation-dir 'sld) "./")
(list "./" (Cyc-installation-dir 'sld))
(list "./"))))
(call/cc
(lambda (return)
@ -321,12 +321,9 @@
(append prepend-dirs dir append-dirs))
;; Not found, just return base name
(lib:check-system-path
(if (> (string-length (car dir)) 0)
(string-append (car dir) "/" filename)
filename))))
;(if (tagged-list? 'scheme import)
; (string-append (Cyc-installation-dir 'sld) "/" path) ;; Built-in library
; path)
(if (> (length dir) 1)
(string-append (cadr dir) "/" filename)
(string-append (car dir) "/" filename)))))
))
;; string :: string