diff options
| -rw-r--r-- | ccwl/skribilo.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ccwl/skribilo.scm b/ccwl/skribilo.scm index 0c08a31..3420ba8 100644 --- a/ccwl/skribilo.scm +++ b/ccwl/skribilo.scm @@ -98,14 +98,14 @@ are found, error out." (substring str 0 position))) (define (sexp-file-lines file regexp) - "Return (START . END) where START is the start of the match to + "Return (START . END) where START is the start of the match to REGEXP in STR and END is the end of the sexp beginning at START. START and END are line numbers indexed from 1." - (let ((str (call-with-input-file file get-string-all))) - (match (sexp-position str regexp) - ((start . end) - (cons (position->line-number str start) - (position->line-number str end)))))) + (let ((str (call-with-input-file file get-string-all))) + (match (sexp-position str regexp) + ((start . end) + (cons (position->line-number str start) + (position->line-number str end)))))) (define (source-ref file regexp text) (call-with-input-file file |