X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Flisp%2Fao_lisp_string.c;h=39c3dc816ddd45dae08a6d6a83d3e876ec6bdd76;hb=c48bda3625fc507134da7b4af87a634e8eb3715b;hp=1ab569332cc378a05d24a2dac63f865d2bb81d8c;hpb=e2f4d25cd6f6f3787d4ee99264732d5b2ce23d4c;p=fw%2Faltos

diff --git a/src/lisp/ao_lisp_string.c b/src/lisp/ao_lisp_string.c
index 1ab56933..39c3dc81 100644
--- a/src/lisp/ao_lisp_string.c
+++ b/src/lisp/ao_lisp_string.c
@@ -68,16 +68,18 @@ ao_lisp_string_cat(char *a, char *b)
 	return r;
 }
 
-const struct ao_lisp_mem_type ao_lisp_string_type = {
+const struct ao_lisp_type ao_lisp_string_type = {
 	.mark = string_mark,
 	.size = string_size,
 	.move = string_move,
 };
 
 void
-ao_lisp_string_print(char *s)
+ao_lisp_string_print(ao_poly p)
 {
+	char	*s = ao_lisp_poly_string(p);
 	char	c;
+
 	putchar('"');
 	while ((c = *s++)) {
 		switch (c) {