Skip to content

Commit

Permalink
Fix small bug in (resource ...) macro.
Browse files Browse the repository at this point in the history
  • Loading branch information
CuppoJava committed Oct 7, 2022
1 parent ab80a2c commit 5eb2731
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 2 deletions.
4 changes: 2 additions & 2 deletions compiler/core-macros.stanza
Original file line number Diff line number Diff line change
Expand Up @@ -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(
Expand All @@ -1602,7 +1602,7 @@ defsyntax core :
fill(resource-untyped-template, [
`x => name
`value => value
`body => rest])
`body => qquote($begin ~@ rest)])

defrule id != (resource)

Expand Down
1 change: 1 addition & 0 deletions core/parser/engine.stanza
Original file line number Diff line number Diff line change
Expand Up @@ -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?)
Expand Down

0 comments on commit 5eb2731

Please sign in to comment.