From 77da67992ef0b4cd33c21094046e2bb71a6b2f18 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 18 Feb 2020 01:43:18 +0100 Subject: Documentation. --- module/vcomponent/parse.scm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'module/vcomponent') diff --git a/module/vcomponent/parse.scm b/module/vcomponent/parse.scm index 979eea7b..4caabe0b 100644 --- a/module/vcomponent/parse.scm +++ b/module/vcomponent/parse.scm @@ -241,14 +241,16 @@ (increment-column! ctx)])))) (lambda _ - (format (current-error-port) - "== PARSE ERROR == + ;; display is atomic, format isn't + (display + (format #f + "== PARSE ERROR == filename = ~a row ~a column ~a ctx = ~a ~a ; ~a = ... : ...~%~%" - (get-filename ctx) - (get-row ctx) (get-col ctx) (get-ctx ctx) - (get-line-key ctx) (get-param-key ctx)))))))) + (get-filename ctx) + (get-row ctx) (get-col ctx) (get-ctx ctx) + (get-line-key ctx) (get-param-key ctx))))))))) -- cgit v1.2.3