File tree 1 file changed +4
-2
lines changed
1 file changed +4
-2
lines changed Original file line number Diff line number Diff line change @@ -450,7 +450,7 @@ load-module: function [
450
450
; Returns block of name, and either built module or none if delayed.
451
451
; Returns none if source is word and no module of that name is loaded.
452
452
; Returns none if source is file/url and read or load-extension fails.
453
-
453
+ ;sys/log/info 'REBOL ["load-module:" source]
454
454
assert/type [local none! ] ; easiest way to protect against /local hacks
455
455
if import [delay: none] ; /import overrides /delay
456
456
@@ -472,6 +472,8 @@ load-module: function [
472
472
binary? source [data: source]
473
473
string? source [data: to binary! source]
474
474
any [file? source url? source] [
475
+ ; if possible, make absolute source path
476
+ if file? source [source: any [to-real-file source source]]
475
477
tmp: file-type? source
476
478
case [ ; Return none if read or load-extension fails
477
479
not tmp [unless attempt [data: read source] [return none]]
@@ -687,7 +689,7 @@ import: function [
687
689
; Unless /no-lib its exports are in lib already, so just import what we need.
688
690
not no-lib [resolve/only system/contexts/user lib exports]
689
691
]
690
- protect 'mod/lib-base
692
+ protect 'mod/lib-base
691
693
protect /hide 'mod/lib-boot
692
694
mod ; module! returned
693
695
]
You can’t perform that action at this time.
0 commit comments