Paste: bi good style?

Author: klazuka
Mode: factor
Date: Thu, 24 Sep 2009 16:22:21
Plain Text | 
: maybe-increment-code-size ( lzw -- lzw )
    [
        [ code>> ]
        [ code-size>> 2^ 1 - ]
        bi =
    ] [ swap [ [ 1 + ] change-code-size ] when ]
    bi ;

Annotation: Other way

Author: Sam
Mode: factor
Date: Thu, 24 Sep 2009 16:42:18
Plain Text | 
: maybe-increment-code-size ( lzw -- lzw )
    dup [ code>> ] [ code-size>> 2^ 1 - ] bi =
    [ [ 1 + ] change-code-size ] when ;

New Annotation

Summary:
Author:
Mode:
Body: