     } 2&& ;
 
 M: decimal before?
-    guard-decimals scale-decimals
-    [ mantissa>> ] bi@ < ;
+    guard-decimals scale-decimals [ mantissa>> ] bi@ < ;
 
 : D-abs ( D -- D' )
     [ mantissa>> abs ] [ exponent>> ] bi <decimal> ;

! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors combinators.short-circuit kernel lexer math
math.functions math.parser parser sequences splitting
locals math.order ;
IN: decimals

TUPLE: decimal { mantissa read-only } { exponent read-only } ;

: <decimal> ( mantissa exponent -- decimal ) decimal boa ;

: >decimal< ( decimal -- mantissa exponent )
    [ mantissa>> ] [ exponent>> ] bi ; inline

    guard-decimals [ >decimal< ] bi@ swapd + [ * ] dip <decimal> ;

:: D/ ( D1 D2 a -- D3 )
    D1 D2 guard-decimals [ >decimal< ] bi@ :> ( m1 e1 m2 e2 )
    m1 a 10^ *
    m2 /i

