 : cache-eq-object ( obj quot -- value )
     [ <eq-wrapper> objects get ] dip '[ obj>> @ ] cache ; inline
 
-: lookup-object ( obj -- n/f ) <eq-wrapper> objects get at ;
-
-: put-object ( n obj -- ) <eq-wrapper> objects get set-at ;
+: lookup-object ( obj -- n/f )
+    <eq-wrapper> objects get at ;
+
+: put-object ( n obj -- )
+    <eq-wrapper> objects get set-at ;
 
 ! Constants
 

    ] with-compilation-unit ;

: build-image ( -- image )
    800000 <vector> image set
    20000 <hashtable> objects set
    emit-image-header t, 0, 1, -1,
    "Building generic words..." print flush
    build-generics

! Image output

: (write-image) ( image -- )
    bootstrap-cell output-stream get
    big-endian get
    [ '[ _ >be _ stream-write ] each ]
    [ '[ _ >le _ stream-write ] each ] if ;

: write-image ( image -- )
    "Writing image to " write
