From 6eb78d2c5f006f068845391f4137331e0e568c7b Mon Sep 17 00:00:00 2001 From: Patrick Li Date: Tue, 21 Feb 2023 13:00:35 -0800 Subject: [PATCH 1/2] Fix protected definition. --- compiler/macro-plugin.stanza | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/macro-plugin.stanza b/compiler/macro-plugin.stanza index 63eae97b0..c6848c079 100644 --- a/compiler/macro-plugin.stanza +++ b/compiler/macro-plugin.stanza @@ -22,7 +22,7 @@ val PLUGIN-INTERFACE = PluginInterface(SExpIO()) ;============================================================ ;The entry-point for performing macro-expansion. -extern defn macroexpand (input:ptr) -> ptr : +protected extern defn macroexpand (input:ptr) -> ptr : return receive(PLUGIN-INTERFACE, input, fn(macroexpand-sexp)) ;Expand the given sexpression using the Stanza core @@ -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) -> ptr : +protected extern defn list_syntax_packages (input:ptr) -> ptr : return receive(PLUGIN-INTERFACE, input, fn(list-syntax-packages)) ;List all supported syntax packages. @@ -88,7 +88,7 @@ defn list-syntax-packages (f:False) -> Tuple : ;============================================================ ;The entry-point for adding all of the initial compiler flags. -extern defn add_compiler_flags (input:ptr) -> ptr : +protected extern defn add_compiler_flags (input:ptr) -> ptr : return receive(PLUGIN-INTERFACE, input, fn(add-compiler-flags)) ;Add all the compiler flags. From 645d9f08ea45a6b263ebb44be2129dac2b6ef280 Mon Sep 17 00:00:00 2001 From: Patrick Li Date: Tue, 21 Feb 2023 16:13:51 -0800 Subject: [PATCH 2/2] Bump version number. --- compiler/params.stanza | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/params.stanza b/compiler/params.stanza index 6b52d783f..1e4519e6b 100644 --- a/compiler/params.stanza +++ b/compiler/params.stanza @@ -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 = List()