From: Tim Vaughan Date: Mon, 19 Jun 2017 10:35:28 +0000 (+1200) Subject: Improved error system. X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;ds=sidebyside;h=87885070a953e05cbf41d1521c9ad500d02572a1;hp=5c89ece636005a3008eb27a80b0c805b4d0e4c84;p=scheme.forth.jl.git Improved error system. --- diff --git a/src/scheme-primitives.4th b/src/scheme-primitives.4th index 1e37e0d..f38fd93 100644 --- a/src/scheme-primitives.4th +++ b/src/scheme-primitives.4th @@ -611,12 +611,15 @@ defer display nil? if ." Error." else - ." Error: " - - begin - 2dup car print - cdr nil? - until + ." Error:" + + 2dup car space display + cdr nil? invert if + begin + 2dup car space print + cdr nil? + until + then 2drop then