core: bootstrap fixes

diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index 1c4a6cc168b5e408758701407b22929fb7aaca4e..f008a4bd599ace290acf22c8b771c2e12b656b94 100644 (file)
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -39,7 +39,8 @@ M: alien equal?
         2drop f
     ] if ;
 
-M: simple-alien hashcode* nip dup expired>> [ drop 1234 ] [ alien-address ] if ;
+M: pinned-alien hashcode*
+    nip dup expired>> [ drop 1234 ] [ alien-address ] if ;
 
 ERROR: alien-callback-error ;
 

diff --git a/core/slots/slots.factor b/core/slots/slots.factor
index 95a854f4936fdaea90f636b6f6ed41ec5bf86728..0422478884d9de0d51f056fa24f00c6596a31284 100755 (executable)
--- a/core/slots/slots.factor
+++ b/core/slots/slots.factor
@@ -173,7 +173,7 @@ M: class initial-value* no-initial-value ;
         { [ string bootstrap-word over class<= ] [ "" ] }
         { [ array bootstrap-word over class<= ] [ { } ] }
         { [ byte-array bootstrap-word over class<= ] [ B{ } ] }
-        { [ simple-alien bootstrap-word over class<= ] [ <bad-alien> ] }
+        { [ pinned-alien bootstrap-word over class<= ] [ <bad-alien> ] }
         { [ quotation bootstrap-word over class<= ] [ [ ] ] }
         [ dup initial-value* ]
     } cond nip ;