From: Nicolas Boulenguez <nicolas.boulenguez@free.fr>
Date: Tue, 21 Jul 2020 16:34:36 +0000 (+0200)
Subject: ada.2: typo
X-Git-Url: https://git.hcoop.net/jackhill/mal.git/commitdiff_plain/ece70f970306f819b148979c3d17f266c7e08146?ds=sidebyside

ada.2: typo
---

diff --git a/impls/ada.2/types-atoms.adb b/impls/ada.2/types-atoms.adb
index fd3d4b30..bc76f6b6 100644
--- a/impls/ada.2/types-atoms.adb
+++ b/impls/ada.2/types-atoms.adb
@@ -46,7 +46,7 @@ package body Types.Atoms is
    function Swap (Args : in T_Array) return T is
    begin
       Err.Check (2 <= Args'Length and then Args (Args'First).Kind = Kind_Atom,
-                 "expected an atom, optional arguments then a function");
+                 "expected an atom, a function, then optional arguments");
       declare
          X : T renames Args (Args'First).Atom.all.Data;
          F : T renames Args (Args'First + 1);