Paste: reduce-plus

Author: randy7
Mode: factor
Date: Thu, 12 Mar 2009 19:01:07
Plain Text | 
: reduce-plus ( obj items-seq quot: ( obj item -- obj ) -- obj )
    over empty? [ 2drop ] 
                [ 
    [ [ first ] [ rest ] bi ] dip swap [ [ call ] keep ] dip swap reduce-plus 
                ] if ; inline

! the word gives me an inference error: literal value expected. why is that?
! (but it works)

New Annotation

Summary:
Author:
Mode:
Body: