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

View File

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