* lib.c (copy): Support copying random state objects

vi make_random_state.

* txr.1: Updated.

1 files changed, 4 insertions, 1 deletions

diff --git a/lib.c b/lib.c
index 8c8fd1b2..a4ce5536 100644
--- a/lib.c
+++ b/lib.c
@@ -6093,9 +6093,12 @@ val copy(val seq)
   case COBJ:
     if (seq->co.cls == hash_s)
       return copy_hash(seq);
+    if (seq->co.cls == random_state_s)
+      return make_random_state(seq);
     /* fallthrough */
   default:
-    type_mismatch(lit("copy: ~s is not a sequence"), seq, nao);
+    type_mismatch(lit("copy: cannot copy object of type ~s"),
+                  typeof(seq), nao);
   }
 }