str: Replace ss_alloc_substring() by ss_clone() and similarly with a pool.

[pspp] / src / language / lexer / token.c

diff --git a/src/language/lexer/token.c b/src/language/lexer/token.c
index 71e98f2d7de44369f4648b498be2569d85978c37..124d14638d8f3be3e527173e02dc6f332daff39f 100644 (file)
--- a/src/language/lexer/token.c
+++ b/src/language/lexer/token.c
@@ -37,8 +37,8 @@ token_copy (struct token *dst, const struct token *src)
   *dst = (struct token) {
     .type = src->type,
     .number = src->number,
+    .string = ss_clone (src->string),
   };
-  ss_alloc_substring (&dst->string, src->string);
 }
 
 /* Frees the string that TOKEN contains. */