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.

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;
 }