From 857d0ba1fd769436f54257e49054935d8b23f8bc Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Mon, 2 Nov 2009 20:21:10 -0600 Subject: [PATCH] core: bootstrap fixes --- core/alien/alien.factor | 3 ++- core/slots/slots.factor | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/core/alien/alien.factor b/core/alien/alien.factor index 1c4a6cc168..f008a4bd59 100644 --- 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 95a854f493..0422478884 100755 --- 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<= ] [ ] } + { [ pinned-alien bootstrap-word over class<= ] [ ] } { [ quotation bootstrap-word over class<= ] [ [ ] ] } [ dup initial-value* ] } cond nip ;