From a03179ad2abff33d21fb5d18bcb13b2d8aa11c21 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 16 Sep 2018 07:46:55 +0200
Subject: grt: rework error API (WIP).

---
 src/grt/grt-waves.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/grt/grt-waves.adb')

diff --git a/src/grt/grt-waves.adb b/src/grt/grt-waves.adb
index ffb41e12c..74d764e67 100644
--- a/src/grt/grt-waves.adb
+++ b/src/grt/grt-waves.adb
@@ -310,7 +310,7 @@ package body Grt.Waves is
       else
          Wave_Stream := fopen (Wave_Filename.all'Address, Mode'Address);
          if Wave_Stream = NULL_Stream then
-            Error_C ("cannot open ");
+            Error_S ("cannot open ");
             Error_E (Wave_Filename (Wave_Filename'First
                                    .. Wave_Filename'Last - 1));
             return;
-- 
cgit v1.2.3