From 547e538476a788dfeb5974f9b8ad29441d18980b Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Thu, 6 Feb 2025 19:28:33 +1300
Subject: Slightly better / more consistent comments

---
 body/fltk-show_argv.ads | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'body/fltk-show_argv.ads')

diff --git a/body/fltk-show_argv.ads b/body/fltk-show_argv.ads
index 231b875..faa93a4 100644
--- a/body/fltk-show_argv.ads
+++ b/body/fltk-show_argv.ads
@@ -14,6 +14,8 @@ private package FLTK.Show_Argv is
 
     --  Used for implementing show(argc,argv)
 
+    --  Dispatch marshalls the data, calls the function, then does cleanup
+
     type Show_With_Args_Func is access procedure
            (CObj : in Storage.Integer_Address;
             Argc : in Interfaces.C.int;
-- 
cgit