From 997f33a4973091569d487363419704f38b3d6c65 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 13 Jul 2022 11:36:17 +0200
Subject: Fix _Pragma, and non-standard pragma directives.

---
 module/c/preprocessor2.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'module/c')

diff --git a/module/c/preprocessor2.scm b/module/c/preprocessor2.scm
index ee6f2d9f..2677c42e 100644
--- a/module/c/preprocessor2.scm
+++ b/module/c/preprocessor2.scm
@@ -407,8 +407,8 @@
                           (_ (err)))))
           (else
            (format (current-output-port)
-                   "Non-standard #Pragma: ~s~%"
-                   (unlex (list tokens)))
+                   "Non-standard #Pragma: ~a"
+                   (unlex tokens))
            environment))))
 
 
-- 
cgit v1.2.3