# error reporting. # this uses some low level words because it's loaded as the first file # after setup.pf : input-location-stream stream-info ; : input-location-list drop "" -1 ; # note that 'input-location' is not allowed to fail : input-location input-stack top type [read] stream route input-location-stream [read] list route input-location-list drop "" -1 ; # replace ':' with one that records source location : boot-: [ <'> : defer@ , ] ;; : record-location input-location swap latestxt xt>doc >r r queue r> queue ; : fancy-: boot-: record-location ; <'> fancy-: :