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.

1 files changed, 1 insertions, 1 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;
 }