X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_read.c;h=721211bc7a9b3ad1e57e23d6803bf516f215de8b;hb=53b99e0419cb44c7983e41026bf0430deae58940;hp=dce480ab1745197f0b858be9ef25b1bd57b6b846;hpb=d8c9024f3829dc3f241b16869f165f3ee01764f3;p=fw%2Faltos

diff --git a/src/scheme/ao_scheme_read.c b/src/scheme/ao_scheme_read.c
index dce480ab..721211bc 100644
--- a/src/scheme/ao_scheme_read.c
+++ b/src/scheme/ao_scheme_read.c
@@ -555,7 +555,7 @@ ao_poly
 ao_scheme_read(void)
 {
 	struct ao_scheme_atom	*atom;
-	char			*string;
+	struct ao_scheme_string	*string;
 	int			read_state;
 	ao_poly			v = AO_SCHEME_NIL;
 
@@ -605,7 +605,7 @@ ao_scheme_read(void)
 				v = _ao_scheme_bool_false;
 			break;
 		case STRING:
-			string = ao_scheme_string_copy(token_string);
+			string = ao_scheme_string_make(token_string);
 			if (string)
 				v = ao_scheme_string_poly(string);
 			else