diff --git a/compiler/core-macros.stanza b/compiler/core-macros.stanza index c2f6008bb..b63a47a20 100644 --- a/compiler/core-macros.stanza +++ b/compiler/core-macros.stanza @@ -1592,7 +1592,7 @@ defsyntax core : `x => name `type => type `value => value - `body => rest]) + `body => qquote($begin ~@ rest)]) val resource-untyped-template = CoreExp $ `( core/with-resource( @@ -1602,7 +1602,7 @@ defsyntax core : fill(resource-untyped-template, [ `x => name `value => value - `body => rest]) + `body => qquote($begin ~@ rest)]) defrule id != (resource) diff --git a/core/parser/engine.stanza b/core/parser/engine.stanza index ff000121d..6aee96787 100644 --- a/core/parser/engine.stanza +++ b/core/parser/engine.stanza @@ -586,6 +586,7 @@ defn interpret (input-form:List, ;form is empty, then just push the empty list. if repeat? and empty?(input-form) : push-value(List()) + InterpreterResult(true, false, List(), List()) ;Otherwise, start executing from the initial pc. else : switch-overlay-mode(start-in-overlay?)