6 lines
144 B
Forth
6 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 .
|