perm: small streamlining in string case.

* combi.c (perm_str): We don't have to convert the string
to a list and then vector, since we have vec_seq.

1 files changed, 1 insertions, 1 deletions

diff --git a/combi.c b/combi.c
index 9afe1305..82442af8 100644
--- a/combi.c
+++ b/combi.c
@@ -213,7 +213,7 @@ static val perm_str(val str, val k)
   if (k == zero) {
     return cons(string(L""), nil);
   } else {
-    val state = perm_init(vec_list(list_str(str)), k, nil);
+    val state = perm_init(vec_seq(str), k, nil);
     if (!state)
       return nil;
     return generate(func_f0(state, perm_while_fun),