diff options
| author | Mirek Kratochvil <exa.exa@gmail.com> | 2023-01-24 23:35:06 +0100 |
|---|---|---|
| committer | Mirek Kratochvil <exa.exa@gmail.com> | 2023-01-24 23:35:06 +0100 |
| commit | cce22d561bf529b924fa2cd19d9777125b5ffd88 (patch) | |
| tree | d06075687e24014a202b37935946319430080ae9 /app/Interpreter.hs | |
| parent | 8a7d54a74e3229d7936426b4d100f97420a6e282 (diff) | |
| download | prlg-cce22d561bf529b924fa2cd19d9777125b5ffd88.tar.gz prlg-cce22d561bf529b924fa2cd19d9777125b5ffd88.tar.bz2 | |
load loads.
Diffstat (limited to 'app/Interpreter.hs')
| -rw-r--r-- | app/Interpreter.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/app/Interpreter.hs b/app/Interpreter.hs index 439418c..1ef39f9 100644 --- a/app/Interpreter.hs +++ b/app/Interpreter.hs @@ -317,4 +317,8 @@ proveStep = St.get >>= go nchos } {- The End -} - go _ = ifail "code broken: impossible instruction combo" + go i = + ifail $ + "code broken: impossible instruction combo hed=" ++ + show (hed . cur $ i) ++ + " gol=" ++ show (gol . cur $ i) ++ " stk=" ++ show (stk . cur $ i) |