From 6eb78d2c5f006f068845391f4137331e0e568c7b Mon Sep 17 00:00:00 2001
From: Patrick Li <patrickli.2001@gmail.com>
Date: Tue, 21 Feb 2023 13:00:35 -0800
Subject: [PATCH] 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<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
@@ -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.
@@ -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.