From 708a6d5e5fa76d1a5a2d955abfd911af8ff946ac Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 4 Nov 2016 21:53:42 -0700 Subject: Remove spurious slash in cadr autoload pathname. * cadr.c: Regenerated. * gencadr.txr (cadr_register): stdlib_path already has a slash; we don't have to add one. --- cadr.c | 2 +- gencadr.txr | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/cadr.c b/cadr.c index da55a37e..9bf77256 100644 --- a/cadr.c +++ b/cadr.c @@ -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; } -- cgit v1.2.3