complex numbers

[factor.git] / library / image.factor

diff --git a/library/image.factor b/library/image.factor
index b129645ac8a20d143b33aa96a22c2e8299e85804..a6566cd8b7cdecda190fcb59c7837e78c29614d5 100644 (file)
--- a/library/image.factor
+++ b/library/image.factor
@@ -68,7 +68,9 @@ USE: words
 : cons-tag     BIN: 010 ;
 : object-tag   BIN: 011 ;
 : rational-tag BIN: 100 ;
-: header-tag   BIN: 101 ;
+: complex-tag  BIN: 101 ;
+: header-tag   BIN: 110 ;
+: gc-fwd-ptr   BIN: 111 ; ( we don't output these )
 
 : immediate ( x tag -- tagged ) swap tag-bits shift< bitor ;
 : >header ( id -- tagged ) header-tag immediate ;