From 908bfa2db6d639ead6a8b6427c5fc75af311e033 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 7 Jul 2014 20:28:27 -0700
Subject: [PATCH] alien.c-types: Ugh. There are self-similar lines of code, got
confused.
---
basis/alien/c-types/c-types.factor | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/basis/alien/c-types/c-types.factor b/basis/alien/c-types/c-types.factor
index 9d4b61500e..f8cdf9c197 100644
--- a/basis/alien/c-types/c-types.factor
+++ b/basis/alien/c-types/c-types.factor
@@ -355,7 +355,7 @@ M: pointer lookup-c-type
8 >>align
8 >>align-first
"from_signed_cell" >>boxer
- "to_signed_8" >>unboxer
+ "to_fixnum" >>unboxer
[ >integer ] >>unboxer-quot
\ longlong typedef
@@ -368,7 +368,7 @@ M: pointer lookup-c-type
8 >>align
8 >>align-first
"from_unsigned_cell" >>boxer
- "to_unsigned_8" >>unboxer
+ "to_cell" >>unboxer
[ >integer ] >>unboxer-quot
\ ulonglong typedef
@@ -421,8 +421,8 @@ M: pointer lookup-c-type
8 >>size
t >>signed
8-byte-alignment
- "from_signed_cell" >>boxer
- "to_fixnum" >>unboxer
+ "from_signed_8" >>boxer
+ "to_signed_8" >>unboxer
[ >integer ] >>unboxer-quot
\ longlong typedef
@@ -433,8 +433,8 @@ M: pointer lookup-c-type
[ set-alien-unsigned-8 ] >>setter
8 >>size
8-byte-alignment
- "from_unsigned_cell" >>boxer
- "to_cell" >>unboxer
+ "from_unsigned_8" >>boxer
+ "to_unsigned_8" >>unboxer
[ >integer ] >>unboxer-quot
\ ulonglong typedef