Anonymous user
Execute Brain****/Forth: Difference between revisions
→Source: add :bf-file for larger programs
m (→Source) |
(→Source: add :bf-file for larger programs) |
||
Line 41:
endcase ;
:
:▼
[char] " parse▼
postpone init
bounds do i c@ compile-bf-char loop
Line 49 ⟶ 47:
postpone c!
postpone ;
;
: :bf" ( name bfcode" -- )
▲ :
▲ [char] " parse
compile-bf-string ;
: :bf-file ( name file -- )
:
bl parse slurp-file
compile-bf-string ;</pre>
| |||