steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compile fix

db4
Joe Groff 2009-08-13 13:39:48 -04:00
parent 92ac48a5bc
commit 6102f6eba4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/classes/c-types/c-types.factor
View File

@ -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 \ 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 \ 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 \ long integer [ HEX: -8000,0000 HEX: 7fff,ffff between? ] define-predicate-class
\ ulong integer [ HEX: 0 HEX: ffff,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 ] if
>> >>