37 lines
812 B
Factor
37 lines
812 B
Factor
! Copyright (C) 2007, 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: namespaces math words kernel alien byte-arrays
|
|
hashtables vectors strings sbufs arrays
|
|
quotations assocs layouts classes.tuple.private
|
|
kernel.private ;
|
|
|
|
BIN: 111 tag-mask set
|
|
8 num-tags set
|
|
3 tag-bits set
|
|
|
|
15 num-types set
|
|
|
|
32 mega-cache-size set
|
|
|
|
H{
|
|
{ fixnum BIN: 000 }
|
|
{ bignum BIN: 001 }
|
|
{ array BIN: 010 }
|
|
{ float BIN: 011 }
|
|
{ quotation BIN: 100 }
|
|
{ POSTPONE: f BIN: 101 }
|
|
{ object BIN: 110 }
|
|
{ hi-tag BIN: 110 }
|
|
{ tuple BIN: 111 }
|
|
} tag-numbers set
|
|
|
|
tag-numbers get H{
|
|
{ wrapper 8 }
|
|
{ byte-array 9 }
|
|
{ callstack 10 }
|
|
{ string 11 }
|
|
{ word 12 }
|
|
{ dll 13 }
|
|
{ alien 14 }
|
|
} assoc-union type-numbers set
|