From 05463502db73ab9a5ac23e1f598e838fbe14b3f8 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Sat, 25 Jun 2022 19:32:04 -0700
Subject: More CPS.

---
 csc/testing.csc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'csc/testing.csc')

diff --git a/csc/testing.csc b/csc/testing.csc
index aad2a63..ecf5547 100644
--- a/csc/testing.csc
+++ b/csc/testing.csc
@@ -63,7 +63,7 @@
           (let ((x left)
                 (y right))
             (unless (cmp x y)
-              (fatalf "Fatal: {} is not equal to {}.\nleft is {}\nright is {}" 'left 'right x y))))
+              (fatalf "Fatal:\n  {}\nis not equal to\n  {}.\nleft is\n  {}\nright is\n  {}" 'left 'right x y))))
         ((assert-equal left right)
           (assert-equal equal? left right))))
 
-- 
cgit v1.3.1