* combi.c (comb_hash_while_fun, comb_hash_gen_fun, comb_hash): New

static functions.
(comb): Support hash tables.

* hash.c (print_key_val): When values are nil, print in a more condensed
way by omitting the second element. This notation is accepted as
input already by the parser.
(hash_insert_pair): New function.

* txr.1: Description of comb updated to indicate that it works over
hashes.

1 files changed, 4 insertions, 1 deletions

diff --git a/hash.c b/hash.c
index 8ce4e4bb..6aac63a0 100644
--- a/hash.c
+++ b/hash.c
@@ -230,7 +230,10 @@ cnum cobj_hash_op(val obj)
 
 static val print_key_val(val out, val key, val value)
 {
-  format(out, lit(" (~s ~s)"), key, value, nao);
+  if (value)
+    format(out, lit(" (~s ~s)"), key, value, nao);
+  else
+    format(out, lit(" (~s)"), key, nao);
   return nil;
 }