From 77e8346ec0df71db49c6c94b51110659d3512515 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 28 Mar 2013 20:04:19 -0700 Subject: [PATCH] slots: fix typo, cleanup style a little bit. --- core/slots/slots.factor | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/core/slots/slots.factor b/core/slots/slots.factor index d5289db370..3b810261a0 100644 --- 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 ] }