New type args with DARG type code.

An object of args type captures into the heap the "struct
args" argument list that normally appears only on the stack.
Such an object also has space for a car and cdr field,
which can come in handy.

* args.c (dyn_args): New function: hoist a struct args *
into an args heap object.

* args.h (dyn_args): Declared.

* gc.c (finalize, mark_obj): Handle DARGS type code.

* hash.c (equal_hash): Handle DARG via eq equivalence.

* lib.c (args_s): New symbol variable.
(code2type): Map DARG to args symbol.
(equal): Handle DARG type, using eq equivalence for now.
(obj_init): Initialize args_s with interned symbol.

* lib.h (enum type, type_t): New type code, DARG.
(struct dyn_args): New struct.
(union obj): New member, a of type struct dyn_args.

* txr.1: Documented args type under typeof.

1 files changed, 1 insertions, 0 deletions

diff --git a/hash.c b/hash.c
index 69b98c1a..9f4df00b 100644
--- a/hash.c
+++ b/hash.c
@@ -218,6 +218,7 @@ ucnum equal_hash(val obj, int *count, ucnum seed)
   case SYM:
   case PKG:
   case ENV:
+  case DARG:
     switch (CHAR_BIT * sizeof (mem_t *)) {
     case 32:
       return coerce(ucnum, obj) >> 4;