From 2cda7c0f280f83e34d3404817224d8bc70812b3e Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Fri, 29 Sep 2017 00:15:24 +0200 Subject: [PATCH] Improved error reporting. --- src/forth.jl | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/forth.jl b/src/forth.jl index 4c81dc3..3882a53 100644 --- a/src/forth.jl +++ b/src/forth.jl @@ -677,6 +677,10 @@ READ_LINE_CFA = defPrimWord("READ-LINE", () -> begin maxSize = popPS() addr = popPS() + if !(fid in keys(openFiles)) + error(string("Invalid FID ", fid, ".")) + end + fh = openFiles[fid] line = readline(fh, chomp=false) @@ -1336,6 +1340,7 @@ function run(fileName=nothing; initialize=true) jmp = callPrim(jmp) catch ex + println(string("Error in primitive '", getPrimName(jmp), "' at address ", jmp)) showerror(STDOUT, ex) println() -- 2.20.1