     dup length <circular-string>
     [ 2dup string-matches? ] take-until nip
     dup length rot length 1- - head
-    get-char [ <missing-close> throw ] unless next ;
+    get-char [ missing-close ] unless next ;
 
 : expect ( ch -- )
     get-char 2dup = [ 2drop ] [
-        >r 1string r> 1string <expected> throw
+        >r 1string r> 1string expected
     ] if next ;
 
 : expect-string ( string -- )
     dup [ drop get-char next ] map 2dup =
-    [ 2drop ] [ <expected> throw ] if ;
+    [ 2drop ] [ expected ] if ;
 
 : init-parser ( -- )
     0 1 0 f <spot> spot set

    #! Take the substring of a string starting at spot
    #! from code until the quotation given is true and
    #! advance spot to after the substring.
    [ [
        dup slip swap dup [ get-char , ] unless
    ] skip-until ] "" make nip ; inline

: take-rest ( -- string )
    [ f ] take-until ;

: take-char ( ch -- string )
    [ dup get-char = ] take-until nip ;

: pass-blank ( -- )
    #! Advance code past any whitespace, including newlines


: next ( -- )
    #! Increment spot.
    get-char [ unexpected-end ] unless (next) record ;

: next* ( -- )
    get-char [ (next) record ] when ;
