Skip to content

Commit

Permalink
Merge branch 'bug-in-macro-plugin'
Browse files Browse the repository at this point in the history
  • Loading branch information
CuppoJava committed Feb 22, 2023
2 parents cea8b5b + 645d9f0 commit 0bb962e
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 4 deletions.
6 changes: 3 additions & 3 deletions compiler/macro-plugin.stanza
Original file line number Diff line number Diff line change
Expand Up @@ -22,7 +22,7 @@ val PLUGIN-INTERFACE = PluginInterface(SExpIO())
;============================================================

;The entry-point for performing macro-expansion.
extern defn macroexpand (input:ptr<byte>) -> ptr<byte> :
protected extern defn macroexpand (input:ptr<byte>) -> ptr<byte> :
return receive(PLUGIN-INTERFACE, input, fn(macroexpand-sexp))

;Expand the given sexpression using the Stanza core
Expand Down Expand Up @@ -76,7 +76,7 @@ defmethod print (o:OutputStream, e:NoSyntaxPackageInPlugin) :
;============================================================

;The entry-point for retrieving the list of all syntax packages.
extern defn list_syntax_packages (input:ptr<byte>) -> ptr<byte> :
protected extern defn list_syntax_packages (input:ptr<byte>) -> ptr<byte> :
return receive(PLUGIN-INTERFACE, input, fn(list-syntax-packages))

;List all supported syntax packages.
Expand All @@ -88,7 +88,7 @@ defn list-syntax-packages (f:False) -> Tuple<Symbol> :
;============================================================

;The entry-point for adding all of the initial compiler flags.
extern defn add_compiler_flags (input:ptr<byte>) -> ptr<byte> :
protected extern defn add_compiler_flags (input:ptr<byte>) -> ptr<byte> :
return receive(PLUGIN-INTERFACE, input, fn(add-compiler-flags))

;Add all the compiler flags.
Expand Down
2 changes: 1 addition & 1 deletion compiler/params.stanza
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,7 @@ public defn compiler-flags () :
to-tuple(COMPILE-FLAGS)

;========= Stanza Configuration ========
public val STANZA-VERSION = [0 17 55]
public val STANZA-VERSION = [0 17 56]
public var STANZA-INSTALL-DIR:String = ""
public var OUTPUT-PLATFORM:Symbol = `platform
public var STANZA-PKG-DIRS:List<String> = List()
Expand Down

0 comments on commit 0bb962e

Please sign in to comment.