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