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

slots: fix typo, cleanup style a little bit.

db4
John Benediktsson 2013-03-28 20:04:19 -07:00
parent 71d37429ba
commit 77e8346ec0
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
core/slots/slots.factor
View File

@ -156,11 +156,10 @@ GENERIC: initial-value* ( class -- object ? )
M: class initial-value* drop f f ;
M: maybe initial-value*
drop f t ;
M: maybe initial-value* drop f t ;
! Default initial value is f, 0, or the default inital value
! of the smallest class. Special case 0 because float is ostensibly
! Default initial value is f, 0, or the default initial value of
! the smallest class. Special case 0 because float is ostensibly
! smaller than integer in union{ integer float } because of
! alphabetical sorting.
M: anonymous-union initial-value*
@ -174,8 +173,8 @@ M: anonymous-union initial-value*
} cond ;
! See if any of the initial values fit the intersection class,
! or else return that none do, and leave it up to the user to provide
! an initial: value.
! or else return that none do, and leave it up to the user to
! provide an initial: value.
M: anonymous-intersection initial-value*
{
{ [ f over instance? ] [ drop f t ] }