7 lines
144 B
Forth
7 lines
144 B
Forth
|
: curry ( x xt1 -- xt2 )
|
||
|
|
swap 2>r :noname r> postpone literal r> compile, postpone ; ;
|
||
|
|
|
||
|
|
5 ' + curry constant +5
|
||
|
|
5 +5 execute .
|
||
|
|
7 +5 execute .
|