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{}
|
|
;
|