bootstrap: working on arm

[factor.git] / basis / bootstrap / image / image.factor

diff --git a/basis/bootstrap/image/image.factor b/basis/bootstrap/image/image.factor
index 8a9ec7348e8398c6465c2ab08983e6a797e1be59..fd6c5ce632c1c239efda1003eb9af6a28555f83e 100644 (file)
--- a/basis/bootstrap/image/image.factor
+++ b/basis/bootstrap/image/image.factor
@@ -494,6 +494,14 @@ M: quotation prepare-object
     emit-words
     "Serializing JIT data..." print flush
     emit-jit-data
+    USE: prettyprint
+special-objects get ...
+nl
+"sub-primitives" print
+sub-primitives get ...
+! \ c-to-factor of
+! 43 special-objects get set-at
+
     "Serializing global namespace..." print flush
     emit-global
     "Serializing singletons..." print flush