From 25f06fa13e92347e9a4d3e506473642e593aeccc Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 26 Sep 2016 21:32:04 -0700 Subject: Use *load-path* in load/include directive. * match.c (v_load): Obtain parent load path from *load-path* variable, rather than from source location info associated with the directive. This changes the semantics of when a @(load ...) occurs in code included via @(include ...). That @(load ...) is processed in the *load-path* context of the parent, rather than the include. * tests/011/txr-case.txr: Load txr-case.txr from the standard library, rather than include it. Otherwise txr-case.txr looks for txr-case.tl in tests/011. --- tests/011/txr-case.txr | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests') diff --git a/tests/011/txr-case.txr b/tests/011/txr-case.txr index f427be9e..1aa80478 100644 --- a/tests/011/txr-case.txr +++ b/tests/011/txr-case.txr @@ -1,4 +1,4 @@ -@(include `@stdlib/txr-case`) +@(load `@{stdlib}txr-case`) @(define date (year month day)) @{year /\d\d\d\d/}-@{month /\d\d/}-@{day /\d\d/} @(end) -- cgit v1.2.3