diff options
| author | Ludovic Courtès | 2015-03-06 11:34:34 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2015-03-06 11:34:34 +0100 |
| commit | ee4390c437d9f9672bf8ef702ddc05fc5cdc1069 (patch) | |
| tree | 65008e525350b44a27e0f1c6dd9772a784d11e08 | |
| parent | c7be66d819c2d339cf0c580d9da52005caad0397 (diff) | |
| download | skribilo-ee4390c437d9f9672bf8ef702ddc05fc5cdc1069.tar.gz skribilo-ee4390c437d9f9672bf8ef702ddc05fc5cdc1069.tar.lz skribilo-ee4390c437d9f9672bf8ef702ddc05fc5cdc1069.zip | |
Fix off-by-one in 'substring' call in 'ast-location'.
* src/guile/skribilo/location.scm (ast-location): Fix off-by-one in
'substring' call.
| -rw-r--r-- | src/guile/skribilo/location.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/guile/skribilo/location.scm b/src/guile/skribilo/location.scm index fa88b18..7605600 100644 --- a/src/guile/skribilo/location.scm +++ b/src/guile/skribilo/location.scm @@ -1,7 +1,7 @@ ;;; location.scm -- Skribilo source location. ;;; -*- coding: iso-8859-1 -*- ;;; -;;; Copyright 2005, 2007, 2009, 2010, 2012, 2013 Ludovic Courtès <ludo@gnu.org> +;;; Copyright 2005, 2007, 2009, 2010, 2012, 2013, 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright 2003, 2004 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> ;;; ;;; @@ -63,7 +63,7 @@ (lenf (string-length fname)) (file (if (and (string-prefix? pwd fname len) (> lenf len)) - (substring fname len (+ 1 (string-length fname))) + (substring fname len (string-length fname)) fname))) (format #f "~a, line ~a" file line)) "no source location"))) |