From 6102f6eba4d8c3e9107a9ea981be354ed2e23508 Mon Sep 17 00:00:00 2001 From: Joe Groff <joe@victoria.(none)> Date: Thu, 13 Aug 2009 13:39:48 -0400 Subject: [PATCH] compile fix --- extra/classes/c-types/c-types.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/extra/classes/c-types/c-types.factor b/extra/classes/c-types/c-types.factor index fe9940ad11..5082e0d2f5 100644 --- a/extra/classes/c-types/c-types.factor +++ b/extra/classes/c-types/c-types.factor @@ -52,11 +52,11 @@ SYMBOLS: long ulong long-bits ; [ \ long integer [ HEX: -8000,0000,0000,0000 HEX: 7fff,ffff,ffff,ffff between? ] define-predicate-class \ ulong integer [ HEX: 0 HEX: ffff,ffff,ffff,ffff between? ] define-predicate-class - 64 long-bits set-global + 64 \ long-bits set-global ] [ \ long integer [ HEX: -8000,0000 HEX: 7fff,ffff between? ] define-predicate-class \ ulong integer [ HEX: 0 HEX: ffff,ffff between? ] define-predicate-class - 32 long-bits set-global + 32 \ long-bits set-global ] if >>