Smart pascal source code


var e: Exception;

try
  raise e;
except
  on Ex: Exception do
    WriteLn(Ex.Message);
end;

{<<< RESULT - CONSOLE LOG >>>
-----------------------------
Object not instantiated [line: 4, column: 11]
-----------------------------
{<<<<<<<<< THE END >>>>>>>>>}

function $Check(i,z) { if (i) return i; throw Exception.Create($New(Exception),"Object not instantiated"+z); }
function WriteLn(value) {
    if (window.console) { window.console.log(value); } };
var e = null;

/* <<< main JS >>> */

   try {
      throw e;
   } catch ($e) {
      var Ex = $W($e);
      WriteLn($Check(Ex,"").FMessage)   }