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

fix bootstrap

db4
Joe Groff 2009-08-13 12:05:20 -04:00
parent 287207df72
commit fd02e59ea1
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
core/slots/slots.factor
View File

@ -170,6 +170,7 @@ M: class initial-value* no-initial-value ;
: initial-value ( class -- object )
{
{ [ \ f bootstrap-word over class<= ] [ f ] }
{ [ \ array-capacity bootstrap-word over class<= ] [ 0 ] }
{ [ dup \ integer bootstrap-word class<= ] [ 0 ] }
{ [ float bootstrap-word over class<= ] [ 0.0 ] }
{ [ string bootstrap-word over class<= ] [ "" ] }