diff --git a/assemble.rkt b/assemble.rkt index b6b8e91..8884d48 100644 --- a/assemble.rkt +++ b/assemble.rkt @@ -27,6 +27,7 @@ (newline op)) basic-blocks) (fprintf op "MACHINE.params.currentErrorHandler = function(e) { fail(e); };\n") + (fprintf op "MACHINE.params.currentSuccessHandler = function(MACHINE) { success(MACHINE.val); };\n") (fprintf op #<