steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

core: bootstrap fixes

db4
Slava Pestov 2009-11-02 20:21:10 -06:00
parent 495f776d54
commit 857d0ba1fd
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/alien/alien.factor
View File

@ -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 ;

2
core/slots/slots.factor
View File

@ -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 ;