Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +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 | Copyright (c) 2017 Koz Ross
| |
| Permission is hereby granted, free of charge, to any person obtaining a copy of | 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? 'srfi import)
(tagged-list? 'cyclone import) (tagged-list? 'cyclone import)
) )
(list (Cyc-installation-dir 'sld) "./") (list "./" (Cyc-installation-dir 'sld))
(list "./")))) (list "./"))))
(call/cc (call/cc
(lambda (return) (lambda (return)
@ -321,12 +321,9 @@
(append prepend-dirs dir append-dirs)) (append prepend-dirs dir append-dirs))
;; Not found, just return base name ;; Not found, just return base name
(lib:check-system-path (lib:check-system-path
(if (> (string-length (car dir)) 0) (if (> (length dir) 1)
(string-append (car dir) "/" filename) (string-append (cadr dir) "/" filename)
filename)))) (string-append (car dir) "/" filename)))))
;(if (tagged-list? 'scheme import)
; (string-append (Cyc-installation-dir 'sld) "/" path) ;; Built-in library
; path)
)) ))
;; string :: string ;; string :: string