parser: use faster, unsafe nreverse.

* lib.c (us_nreverse): New function.

* lib.h (us_nreverse): Declared.

* parser.y (clauses_opt, n_exprs, r_exprs): Use us_nreverse
instead of nreverse to rorder lists built in reverse into
final shape.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index a1763d77..19e55f65 100644
--- a/lib.h
+++ b/lib.h
@@ -599,6 +599,7 @@ val nullify(val seq);
 val seqp(val obj);
 val nreverse(val in);
 val reverse(val in);
+val us_nreverse(val in);
 val append2(val list1, val list2);
 val nappend2(val list1, val list2);
 val revappend(val list1, val list2);