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

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