[GODCC][COMMITTED] Use contracted publicized declarations

Jose E. Marchesi jemarch@gnu.org
Wed Dec 17 23:47:44 GMT 2025


---
 src/ce.a68   |  4 ++--
 src/json.a68 | 10 +++++-----
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/ce.a68 b/src/ce.a68
index 59807f6..93d41c9 100644
--- a/src/ce.a68
+++ b/src/ce.a68
@@ -23,8 +23,8 @@ def
       library to whatever host and port to use when talking to a
       Compiler Explorer instance.  }
 
-    pub string ce_host = getenv ("GODCC_CEHOST");
-    pub int ce_port = atoi (getenv ("GODCC_CEPORT"), 10);
+    pub string ce_host = getenv ("GODCC_CEHOST"),
+        int ce_port = atoi (getenv ("GODCC_CEPORT"), 10);
 
     { Communication with Compiler Explorer is performed via a socket.  }
 
diff --git a/src/json.a68 b/src/json.a68
index 8c0ebbf..61524c2 100644
--- a/src/json.a68
+++ b/src/json.a68
@@ -38,16 +38,16 @@ def
 
     { Nihils.  }
 
-    pub ref JSON_Val json_no_val = nil;
-    pub ref JSON_Elm json_no_elm = nil;
-    pub ref JSON_Fld json_no_fld = nil;
+    pub ref JSON_Val json_no_val = nil,
+        ref JSON_Elm json_no_elm = nil;
+        ref JSON_Fld json_no_fld = nil;
 
     { The following procedures are intended to be used as
       initialization values for JSON_Val variable initializations or
       ascriptions.  }
 
-    pub proc json_new_obj = JSON_Val: heap JSON_Obj;
-    pub proc json_new_arr = JSON_Val: heap JSON_Arr;
+    pub proc json_new_obj = JSON_Val: heap JSON_Obj,
+             json_new_arr = JSON_Val: heap JSON_Arr;
 
     { Error handling procedure.
 
-- 
2.30.2



More information about the Algol68 mailing list