| 119 | | " [\n" |
| 120 | | " [\n" |
| 121 | | " [word word!/lit-word! def] [\n" |
| 122 | | " def: word: reader-macros last set\n" |
| 123 | | " ] func :macro\n" |
| 124 | | " [word word!/lit-word! sig block! body block!] [\n" |
| 125 | | " sig kernel-ops infuse\n" |
| 126 | | " body kernel-ops infuse\n" |
| 127 | | " func word: reader-macros last set\n" |
| 128 | | " ] func :macrof\n" |
| 129 | | " [n] [[n: 'add word! as] reduce] func :+\n" |
| 130 | | " [n] [[n: 'sub word! as] reduce] func :-\n" |
| 131 | | " [n] [[n: 'mul word! as] reduce] func :*\n" |
| 132 | | " [n] [[n: 'div word! as] reduce] func :/\n" |
| 133 | | " ] context\n" |
| 134 | | " ] reduce :reader-macros\n" |
