diff options
| -rw-r--r-- | match.c | 2 | ||||
| -rw-r--r-- | tests/011/txr-case.txr | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -3865,7 +3865,7 @@ static val v_load(match_files_ctx *c) spec_bind (specline, first_spec, c->spec); val sym = first(first_spec); val args = rest(first_spec); - val parent = or2(cdr(source_loc(specline)), null_string); + val parent = or2(load_path, null_string); val target = tleval(specline, first(args), c->bindings); if (rest(specline)) 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) |