@@ 8,7 8,6 @@
@src $40
@token $30 &last $30 &last2 $30
@stats &lines $2 &tokens $2
- @mute $1
(
@|vectors )
@@ 69,21 68,22 @@ JMP2
JMP2r
&append ;token ;sput JMP2
&toggle-sleep LIT "( EQU ,&sleep STR JMP2r
- &toggle-mute LIT "[ EQU .mute STZ JMP2r
+ &toggle-mute LIT "[ EQU ,parse/mute STR JMP2r
&line .stats/lines LDZ2k INC2 ROT STZ2 ( , )
@parse ( char -- recipe* )
( char ) POP
- ( is mute ) .mute LDZ ;&ignore JCN2
+ ( is mute ) [ LIT &mute $1 ] ;&ignore JCN2
( incr tokens ) .stats/tokens LDZ2k INC2 ROT STZ2
( chain include )
;token LDA LIT "~ NEQ ,&no-inc JCN
- ;src ;sclr JSR2
- ;token INC2 ;src ;scpy JSR2
- ;src .File/name DEO2
+ ;src
+ DUP2 ;sclr JSR2
+ ;token INC2 OVR2 ;scpy JSR2
+ .File/name DEO2
;&cleanup JMP2
&no-inc
@@ 199,8 199,8 @@ JMP2
;dict/line-txt ;pstr JSR2
;src ;pstr JSR2 LIT ": #18 DEO
- .stats/lines LDZ2 INC2k ;pdec JSR2
- LIT "< #18 DEO ;phex JSR2 LIT "> #18 DEO #0a18 DEO
+ .stats/lines LDZ2 INC2 ;pdec JSR2
+ #0a18 DEO
JMP2r