 : make-image ( arch -- )
     architecture [
         prepare-image
+        "resource:/core/bootstrap/stage1.factor" run-file
         begin-image
-        "resource:/core/bootstrap/stage1.factor" run-file
         end-image
         image get
         architecture get boot-image-name resource-path

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

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

: -1, -1 >bignum ' -1-offset fixup ;

! Beginning of the image
: begin-image ( -- )
    emit-header t, 0, 1, -1, ;

! Words

