aboutsummaryrefslogtreecommitdiff
path: root/module/c
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2022-07-13 11:36:17 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2022-07-13 11:36:17 +0200
commit997f33a4973091569d487363419704f38b3d6c65 (patch)
tree4699e73945b70c30690e5e6f9935c83c41d159c0 /module/c
parentStringification operator now escapes quotes and backslashes. (diff)
downloadcalp-997f33a4973091569d487363419704f38b3d6c65.tar.gz
calp-997f33a4973091569d487363419704f38b3d6c65.tar.xz
Fix _Pragma, and non-standard pragma directives.
Diffstat (limited to 'module/c')
-rw-r--r--module/c/preprocessor2.scm4
1 files changed, 2 insertions, 2 deletions
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))))