diff options
author | Ludovic Courtes | 2006-01-16 22:31:32 +0000 |
---|---|---|
committer | Ludovic Courtes | 2006-01-16 22:31:32 +0000 |
commit | 2d8fa88ef04b3a6141a2b03a9671a7dd0fcc1f60 (patch) | |
tree | 56d287670d9ce43285e8e961f9f443dd74751317 /src/guile/skribilo/biblio.scm | |
parent | c72a09b779b110b2e189ab2b1872eb89f568605c (diff) | |
download | skribilo-2d8fa88ef04b3a6141a2b03a9671a7dd0fcc1f60.tar.gz skribilo-2d8fa88ef04b3a6141a2b03a9671a7dd0fcc1f60.tar.lz skribilo-2d8fa88ef04b3a6141a2b03a9671a7dd0fcc1f60.zip |
More SRFI-3[45] enhancements; first stab at the user documentation.
* src/guile/skribilo/biblio.scm (skribe-open-bib-file): Raise a
`&file-search-error' when needed.
* src/guile/skribilo/runtime.scm (convert-image): Likewise.
* src/guile/skribilo/source.scm (source-read-lines): Likewise.
(source-read-definition): Likewise.
* src/guile/skribilo/utils/compat.scm (skribe-load): Only look up
`%skribe-known-files' when `load-document' failed.
(find-file/path): Use `search-path'.
(find-runtime-type): Implemented.
* doc/skr/api.skr: Use `(ice-9 match)'. Use `match' instead of
`match-case'.
(api-search-definition): Search in `%load-path' and `(skribe-path)'.
(define-markup?): First stab at getting the `match' syntax right.
* doc/user/src/start[3-5].skb: Small fixes.
git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-25
Diffstat (limited to 'src/guile/skribilo/biblio.scm')
-rw-r--r-- | src/guile/skribilo/biblio.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/guile/skribilo/biblio.scm b/src/guile/skribilo/biblio.scm index 2ea35bc..082fb99 100644 --- a/src/guile/skribilo/biblio.scm +++ b/src/guile/skribilo/biblio.scm @@ -25,6 +25,11 @@ :use-module (skribilo utils syntax) ;; `when', `unless' :use-module (skribilo module) :use-module (skribilo skribe bib) ;; `make-bib-entry' + + :autoload (srfi srfi-34) (raise) + :use-module (srfi srfi-35) + :autoload (skribilo condition) (&file-search-error) + :autoload (skribilo reader) (%default-reader) :autoload (skribilo parameters) (*bib-path*) :autoload (ice-9 format) (format) @@ -155,8 +160,5 @@ (string-append "| " (format #f command path)) path))) - (begin - (skribe-warning 1 - 'bibliography - "Can't find bibliography -- " file) - #f)))) + (raise (condition (&file-search-error (file-name file) + (path (*bib-path*)))))))) |