- dup locals_wordlist !
- s" set-current" $find drop execute
- parse-word 2drop \ ditch the {
- begin
- parse-word
- 2dup 3b comp-str-char \ check for ;
Instead of 3b, write [char] ; But, like I said, something like 2dup s" ;" compare is much more readable.
Oh, and you're supposed to handle | exactly the same as ;
Segher