From 1a0a34fbfcb53f6ef0c1228a70d8b9b125036036 Mon Sep 17 00:00:00 2001
From: Jeremy Hughes <jedahu@gmail.com>
Date: Sun, 5 Jul 2009 21:41:21 +1200
Subject: [PATCH] alien.inline: cify-type: fixed incorrect substitution
---
basis/alien/inline/inline.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/alien/inline/inline.factor b/basis/alien/inline/inline.factor
index 2b1e9dd186..2500021247 100644
--- a/basis/alien/inline/inline.factor
+++ b/basis/alien/inline/inline.factor
@@ -32,7 +32,7 @@ SYMBOL: c-strings
"long-" ?head [ "long" prepend ] when ;
: cify-type ( str -- str' )
- { { CHAR: ~ CHAR: space } } substitute ;
+ { { CHAR: - CHAR: space } } substitute ;
: factor-function ( function types effect -- )
[ c-library get ] 3dip [ [ factorize-type ] map ] dip