 M: string '
     #! We pool strings so that each string is only written once
     #! to the image
-    objects get [ emit-string ] cache ;
+    [ emit-string ] cache-object ;
 
 : assert-empty ( seq -- )
     length 0 assert= ;


<PRIVATE

! Constants

: image-magic HEX: 0f0e0d0c ; inline


! The image being constructed; a vector of word-size integers
SYMBOL: image

! Image output format
SYMBOL: big-endian
