diff options
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/parse.scm | 12 |
1 files changed, 7 insertions, 5 deletions
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))))))))) |