diff options
| author | Ludovic Courtes | 2006-01-25 22:57:34 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2006-01-25 22:57:34 +0000 |
| commit | 66e42310c0d6518abb39d52553286b5253bba6fd (patch) | |
| tree | e9d3fbb7f52ab02973c0283601a52eb7685a345b /src/guile/skribilo/source.scm | |
| parent | ce4ff568eaf9bb2f56ab0cf341591a9025f35ee7 (diff) | |
| download | skribilo-66e42310c0d6518abb39d52553286b5253bba6fd.tar.gz skribilo-66e42310c0d6518abb39d52553286b5253bba6fd.tar.lz skribilo-66e42310c0d6518abb39d52553286b5253bba6fd.zip | |
More progress towards a working user manual.
* doc/skr/api.skr (define-markup?): Support `define*' and
`define*-public'.
* doc/user/bib.skb: Commented out problematic `skribebibtex'-related
things.
* doc/user/lib.skb (skribe-load): Replaced by `load-document'.
(skribe-load-options): Replaced by `*load-options*'.
(skribe-path): Replaced by `*document-path*'.
* src/guile/skribilo/coloring/lisp.scm (definition-search): Removed
debugging statement.
* src/guile/skribilo/engine.scm (find-engine): For documentation
purposes, explicitly list all keyword parameters.
* src/guile/skribilo/source.scm (source-read-lines): Start line numbers
from 0.
* src/guile/skribilo/utils/compat.scm (skribe-path-set!): New.
(skribe-image-path-set!): New.
(skribe-source-path-set!): New.
(skribe-bib-path-set!): New.
git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-30
Diffstat (limited to 'src/guile/skribilo/source.scm')
| -rw-r--r-- | src/guile/skribilo/source.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/guile/skribilo/source.scm b/src/guile/skribilo/source.scm index a632f18..4027372 100644 --- a/src/guile/skribilo/source.scm +++ b/src/guile/skribilo/source.scm @@ -68,7 +68,7 @@ (format (current-error-port) " [source file: ~S]\n" p)) (let ((startl (if (string? start) (string-length start) -1)) (stopl (if (string? stop) (string-length stop) -1))) - (let loop ((l 1) + (let loop ((l 0) ;; In Guile, line nums are 0-origined. (armedp (not (or (integer? start) (string? start)))) (s (read-line)) (r '())) |