Paste: does 'make' fit here?

Author: randy
Mode: factor
Date: Tue, 9 Jun 2009 12:57:39
Plain Text | 
: (again) ( start-n action-quot --  )
    over [ [ dup , call( n quot -- x ) ] keep (again) ] [ 2drop ] if ;    
    
: again ( start-n action-quot -- list )
    [ (again) ] { } make ;

Annotation: phone

Author: q
Mode: factor
Date: Tue, 9 Jun 2009 13:58:58
Plain Text | 
: (again) ( start-n action-quot --  )
    over [ [ [ dup , ] dip call( n quot -- x ) ] keep (again) ] [ 2drop ] if ;

New Annotation

Summary:
Author:
Mode:
Body: