slots: fix typo, cleanup style a little bit.

diff --git a/core/slots/slots.factor b/core/slots/slots.factor
index d5289db370b83c27a541eb035f9ba53172679ae8..3b810261a08002d3286ee0d8e972a297ab313ec3 100644 (file)
--- a/core/slots/slots.factor
+++ b/core/slots/slots.factor
@@ -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 ] }