diff options
-rw-r--r-- | cadr.c | 2 | ||||
-rw-r--r-- | gencadr.txr | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -404,7 +404,7 @@ static val cadr_register(val set_fun) reg_fun(intern(lit("cdddadr"), user_package), func_n1(cdddadr)); reg_fun(intern(lit("cddddar"), user_package), func_n1(cddddar)); reg_fun(intern(lit("cdddddr"), user_package), func_n1(cdddddr)); - load(format(nil, lit("~a/cadr.tl"), stdlib_path, nao)); + load(format(nil, lit("~acadr.tl"), stdlib_path, nao)); return nil; } diff --git a/gencadr.txr b/gencadr.txr index 7e96453a..c6b48120 100644 --- a/gencadr.txr +++ b/gencadr.txr @@ -48,7 +48,7 @@ static val cadr_register(val set_fun) @ (repeat) reg_fun(intern(lit("c@{ad}r"), user_package), func_n1(c@{ad}r)); @ (end) - load(format(nil, lit("~a/cadr.tl"), stdlib_path, nao)); + load(format(nil, lit("~acadr.tl"), stdlib_path, nao)); return nil; } |