From d99a126ca4112395b08dbb1c6f19dfc39ccffd11 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 19 Aug 2009 18:54:11 -0500
Subject: [PATCH] remove a layer of indirection from classes.c-types
---
extra/classes/c-types/c-types.factor | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/extra/classes/c-types/c-types.factor b/extra/classes/c-types/c-types.factor
index 58aa3a1d2f..0d0b26639f 100644
--- a/extra/classes/c-types/c-types.factor
+++ b/extra/classes/c-types/c-types.factor
@@ -62,7 +62,7 @@ SYMBOLS: long ulong long-bits ;
>>
: set-class-c-type ( class c-type <direct-array> -- )
- [ "class-c-type" set-word-prop ]
+ [ c-type "class-c-type" set-word-prop ]
[ "class-direct-array" set-word-prop ] bi-curry* bi ;
: class-c-type ( class -- c-type )
@@ -103,12 +103,12 @@ ulonglong [ 64 bits ] "coercer" set-word-prop
PREDICATE: c-type-class < class
"class-c-type" word-prop ;
-GENERIC: direct-array-of ( alien len class -- array )
+GENERIC: direct-array-of ( alien len class -- array ) inline
M: c-type-class direct-array-of
class-direct-array execute( alien len -- array ) ; inline
-M: c-type-class c-type class-c-type c-type ;
+M: c-type-class c-type class-c-type ;
M: c-type-class c-type-align class-c-type c-type-align ;
M: c-type-class c-type-getter class-c-type c-type-getter ;
M: c-type-class c-type-setter class-c-type c-type-setter ;