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

Slots with declared type of callable or quotation now have an initial value [ ]

db4
U-SLAVA-DFB8FF805\Slava 2009-01-28 01:57:14 -06:00
parent 4e1748febd
commit 1cd285bcaa
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 Normal file → Executable file
View File

@ -151,6 +151,7 @@ M: class initial-value* no-initial-value ;
{ [ array bootstrap-word over class<= ] [ { } ] } { [ array bootstrap-word over class<= ] [ { } ] }
{ [ byte-array bootstrap-word over class<= ] [ B{ } ] } { [ byte-array bootstrap-word over class<= ] [ B{ } ] }
{ [ simple-alien bootstrap-word over class<= ] [ <bad-alien> ] } { [ simple-alien bootstrap-word over class<= ] [ <bad-alien> ] }
{ [ quotation bootstrap-word over class<= ] [ [ ] ] }
[ dup initial-value* ] [ dup initial-value* ]
} cond nip ; } cond nip ;