Paste: effect problem

Author:	mrjbq7
Mode:	factor
Date:	Tue, 9 Aug 2011 05:07:47

Plain Text |

USING: combinators kernel quotations sequences ;

: foo ( seq -- seq' )
    [ dup callable? [ call( x -- y ) ] when ] map ;

Annotation: error

Author:	mrjbq7
Mode:	factor
Date:	Tue, 9 Aug 2011 05:08:11

Plain Text |

Asset: foo

The input quotations to “if” don't match their expected effects
Input    Expected         Got
[ call ] (( ..a -- ..b )) (( x -- x ))
[ drop ] (( ..a -- ..b )) (( -- x ))

New Annotation

Summary:
Author:
Mode:
Body: