             0 emit ! xt
             0 emit ! code
         ] emit-object
-    ] cache ;
+    ] cache-object ;
 
 ! End of the image
 


: emit-tuple ( tuple -- pointer )
    dup class word-name "tombstone" =
    [ objects get [ (emit-tuple) ] cache ] [ (emit-tuple) ] if ;

M: tuple ' emit-tuple ;

M: tuple-layout '
    objects get [
        [
            {
                [ layout-hashcode , ]

M: string '
    #! We pool strings so that each string is only written once
    #! to the image
    [ emit-string ] cache-object ;

: assert-empty ( seq -- )
    length 0 assert= ;
