aboutsummaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/utils/syntax.scm11
1 files changed, 9 insertions, 2 deletions
diff --git a/src/guile/skribilo/utils/syntax.scm b/src/guile/skribilo/utils/syntax.scm
index 975b879..06c89bd 100644
--- a/src/guile/skribilo/utils/syntax.scm
+++ b/src/guile/skribilo/utils/syntax.scm
@@ -42,8 +42,15 @@
'(colon-keywords no-scsh-block-comments
srfi30-block-comments srfi62-sexp-comments)
(lambda (chr port read)
- (error "unexpected character in Skribilo module"
- chr))
+ (let ((file (port-filename port))
+ (line (port-line port))
+ (column (port-column port)))
+ (error (string-append
+ (if (string? file)
+ (format #f "~a:~a:~a: " file line column)
+ "")
+ "unexpected character in Skribilo module")
+ chr)))
;; By default, don't record positions: this yields a nice read
;; performance improvement.