From 176dd45c7614da1c7e524556409741076b9e062d Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 13 Jun 2024 23:21:06 -0700
Subject: 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.
---
 combi.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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),
-- 
cgit v1.2.3