[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