Paste: Tuple constructors

Author: rationalrevolt
Mode: factor
Date: Thu, 26 Nov 2015 16:16:16
Plain Text | 
TUPLE: test a b c ;

: <test> ( -- t ) { 1 2 } { 3 4 } { 5 6 } test boa ;

: f1 ( -- ) <test> . ;

: f2 ( -- ) <test> a>> [ [ 10 0 ] dip set-nth ] [ [ 20 1 ] dip set-nth ] bi ;

! Now run the following on the listener

f1

! outputs T{ test { a { 1 2 } } { b { 3 4 } } { c { 5 6 } } }

f2 f1

! outputs T{ test { a { 10 20 } } { b { 3 4 } } { c { 5 6 } } }

New Annotation

Summary:
Author:
Mode:
Body: