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

slots: silly formatting change.

locals-and-roots
John Benediktsson 2016-04-14 16:59:33 -07:00
parent c52b640520
commit 0bb297ed92
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/slots/slots.factor
View File

@ -229,9 +229,7 @@ M: string make-slot
: peel-off-class ( slot-spec array -- slot-spec array ) : peel-off-class ( slot-spec array -- slot-spec array )
dup empty? [ dup empty? [
dup first classoid? [ dup first classoid? [
[ first init-slot-class ] [ first init-slot-class ] [ rest ] bi
[ rest ]
bi
] when ] when
] unless ; ] unless ;