 : -1, -1 >bignum ' -1-offset fixup ;
 
 ! Beginning of the image
-
-: begin-image ( -- ) emit-header t, 0, 1, -1, ;
+: begin-image ( -- )
+    emit-header t, 0, 1, -1, ;
 
 ! Words
 


: here-as ( tag -- pointer ) here swap bitor ;

: align-here ( -- )
    here 8 mod 4 = [ 0 emit ] when ;

: emit-fixnum ( n -- ) tag-fixnum emit ;


    [ dup bignum-bits neg shift swap bignum-radix bitand ]
    [ ] unfold nip ;

USE: continuations
: emit-bignum ( n -- )
    dup 0 < [ 1 swap neg ] [ 0 swap ] if bignum>seq
    dup length 1+ emit-fixnum
