14 lines
182 B
Plaintext
14 lines
182 B
Plaintext
|
::builtin for
|
||
|
|
parseword drop // TODO: error handling
|
||
|
|
"" ";" parse
|
||
|
|
gen(while)
|
||
|
|
genopen()
|
||
|
|
"" ";" parse
|
||
|
|
genclose()
|
||
|
|
genopen{}
|
||
|
|
"" ")" parse()
|
||
|
|
"" parseblock {}
|
||
|
|
swap
|
||
|
|
genclose{}
|
||
|
|
;
|