From c4b58c3dffe0643a86def3cb46e4ef818e5693da Mon Sep 17 00:00:00 2001
From: Tim McMackin <timothymcmackin@yahoo.com>
Date: Mon, 14 Jul 2025 14:14:03 -0400
Subject: [PATCH] These examples would be clearer in a namespace

---
 .../HomepageCodeExamples/cameligo.mligo       | 25 +++++++++++--------
 .../HomepageCodeExamples/jsligo.jsligo        | 25 +++++++++++--------
 2 files changed, 28 insertions(+), 22 deletions(-)

diff --git a/gitlab-pages/website/src/components/HomepageCodeExamples/cameligo.mligo b/gitlab-pages/website/src/components/HomepageCodeExamples/cameligo.mligo
index 400b688f99..70ca991598 100644
--- a/gitlab-pages/website/src/components/HomepageCodeExamples/cameligo.mligo
+++ b/gitlab-pages/website/src/components/HomepageCodeExamples/cameligo.mligo
@@ -1,15 +1,18 @@
-type storage = int
+module Counter = struct
+  type storage_type = int
+  type return_type = operation list * storage_type
 
-type ret = operation list * storage
+  (* Three entrypoints *)
 
-(* Three entrypoints *)
+  [@entry]
+  let add (value : int) (store : storage_type) : return_type =
+    [], store + value
 
-[@entry]
-let increment (delta : int) (store : storage) : ret = [], store + delta
-
-[@entry]
-let decrement (delta : int) (store : storage) : ret = [], store - delta
-
-[@entry]
-let reset (() : unit) (_ : storage) : ret = [], 0
+  [@entry]
+  let sub (value : int) (store : storage_type) : return_type =
+    [], store - value
 
+  [@entry]
+  let reset (_p : unit) (_s : storage_type) : return_type =
+    [], 0
+end
diff --git a/gitlab-pages/website/src/components/HomepageCodeExamples/jsligo.jsligo b/gitlab-pages/website/src/components/HomepageCodeExamples/jsligo.jsligo
index dbe7431140..c96ef5356c 100644
--- a/gitlab-pages/website/src/components/HomepageCodeExamples/jsligo.jsligo
+++ b/gitlab-pages/website/src/components/HomepageCodeExamples/jsligo.jsligo
@@ -1,15 +1,18 @@
-type storage = int;
-type ret = [list<operation>, storage];
+namespace Counter {
+  type storage_type = int;
+  type return_type = [list<operation>, storage_type];
 
-// Three entrypoints
+  // Three entrypoints
 
-// @entry
-const increment = (delta: int, store: storage): ret =>
-  [[], store + delta];
+  // @entry
+  const add = (value: int, store: storage_type): return_type =>
+    [[], store + value];
 
-// @entry
-const decrement = (delta: int, store: storage): ret =>
-  [[], store - delta];
+  // @entry
+  const sub = (value: int, store: storage_type): return_type =>
+    [[], store - value];
 
-// @entry
-const reset = (_p: unit, _s: storage): ret => [[], 0]
+  // @entry
+  const reset = (_p: unit, _s: storage_type): return_type =>
+    [[], 0];
+}
\ No newline at end of file