From 402e4313bb518915482f22b00f1ccad9b7ad19d1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Thu, 11 Aug 2016 15:25:46 +0200 Subject: [PATCH] alien.c-types: c-type-string without using prettyprint words Using prettyprint caused deploy-images to grow unnecessarily. --- basis/alien/c-types/c-types.factor | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/basis/alien/c-types/c-types.factor b/basis/alien/c-types/c-types.factor index 495f3ed5d7..bae6650e1d 100644 --- a/basis/alien/c-types/c-types.factor +++ b/basis/alien/c-types/c-types.factor @@ -2,7 +2,7 @@ ! See http://factorcode.org/license.txt for BSD license. USING: accessors alien alien.accessors arrays classes combinators compiler.units cpu.architecture delegate fry kernel layouts macros -math math.order prettyprint quotations sequences summary system words +math math.order math.parser quotations sequences summary system words words.symbol ; IN: alien.c-types @@ -507,11 +507,12 @@ M: pointer pointer-string to>> pointer-string [ CHAR: * suffix ] [ f ] if* ; GENERIC: c-type-string ( c-type -- string ) +M: integer c-type-string number>string ; M: word c-type-string name>> ; M: pointer c-type-string pointer-string ; M: wrapper c-type-string wrapped>> c-type-string ; M: array c-type-string unclip - [ [ unparse "[" "]" surround ] map ] + [ [ c-type-string "[" "]" surround ] map ] [ c-type-string ] bi* prefix concat ;