From d2261daf16e8e7edc3c0d1282dc243761033c313 Mon Sep 17 00:00:00 2001
From: Heiko Becker <HeikoBecker@users.noreply.github.com>
Date: Wed, 4 Mar 2020 08:45:18 +0100
Subject: [PATCH] Fix type error in assert function

The string module is not defined when RuntimeProg is compiled. Therefore `String.^` could not be used.
---
 basis/RuntimeProgScript.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/RuntimeProgScript.sml b/basis/RuntimeProgScript.sml
index ba2d1680a7..7127477fe1 100644
--- a/basis/RuntimeProgScript.sml
+++ b/basis/RuntimeProgScript.sml
@@ -47,7 +47,7 @@ val _ = process_topdecs `
   fun assert cond msg =
   if (cond)
   then ()
-  else (debugMsg (String.^ ("Assertion Failure: ") (msg));
+  else (debugMsg (msg);
         abort());`
   |> append_prog;