type: new macro etypecase.

* lisplib.c (type_set_entries): Add etypecase to autoload list.

* stdlib/type.tl (etypecase): New macro.

* txr.1: Documented.

* stdlib/doc-syms.tl: Updated.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisplib.c b/lisplib.c
index 80c8dc59..f841f4c7 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -292,7 +292,9 @@ static val except_instantiate(val set_fun)
 
 static val type_set_entries(val dlt, val fun)
 {
-  val name[] = { lit("typecase"), nil };
+  val name[] = {
+    lit("typecase"), lit("etypecase"), nil
+  };
   set_dlt_entries(dlt, name, fun);
   return nil;
 }