diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-18 01:43:18 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-18 01:43:18 +0100 |
| commit | 77da67992ef0b4cd33c21094046e2bb71a6b2f18 (patch) | |
| tree | 82538c24f5e799ff0b2dcbfc85ba19b8dc2b70cf /module/vcomponent | |
| parent | Add note about datetime+. (diff) | |
| download | calp-77da67992ef0b4cd33c21094046e2bb71a6b2f18.tar.gz calp-77da67992ef0b4cd33c21094046e2bb71a6b2f18.tar.xz | |
Documentation.
Diffstat (limited to 'module/vcomponent')
| -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))))))))) |