From 2677b7b562c22b7b8b4c4e1be61f6216c222d71b Mon Sep 17 00:00:00 2001
From: Anton Gorenko <ex.rzrjck@gmail.com>
Date: Mon, 24 May 2010 19:47:16 +0600
Subject: [PATCH] change typedef of gboolean (gint with automatic
 boxing/unboxing to/from factor's t and f)

---
 basis/glib/glib.factor | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/basis/glib/glib.factor b/basis/glib/glib.factor
index 903915be99..454484c6a1 100644
--- a/basis/glib/glib.factor
+++ b/basis/glib/glib.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2009 Anton Gorenko.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.c-types alien.libraries alien.syntax combinators gir
-kernel system vocabs.parser words ;
+USING: accessors alien alien.c-types alien.libraries alien.syntax
+combinators compiler.units gir kernel system vocabs.parser words ;
 
 <<
 "glib" {
@@ -23,7 +23,15 @@ TYPEDEF: long glong
 TYPEDEF: ulong gulong
 TYPEDEF: int gint
 TYPEDEF: uint guint
-TYPEDEF: bool gboolean
+
+SYMBOL: gboolean
+<<
+gint c-type clone
+    [ >c-bool ] >>unboxer-quot
+    [ c-bool> ] >>boxer-quot
+    object >>boxed-class
+gboolean typedef
+>>
 
 TYPEDEF: char gint8
 TYPEDEF: uchar guint8