diff options
| author | Ludovic Courtes | 2006-01-10 23:40:38 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2006-01-10 23:40:38 +0000 |
| commit | 9bf866163bcf1c187341ab2e364c8dddc17093e8 (patch) | |
| tree | 1063a21da359fd1a618ca3a2596e5f5167ddeb1a /src/guile/skribilo/reader/skribe.scm | |
| parent | 20e5a989999ca11d68bf90417402c60c275dd0cc (diff) | |
| download | skribilo-9bf866163bcf1c187341ab2e364c8dddc17093e8.tar.gz skribilo-9bf866163bcf1c187341ab2e364c8dddc17093e8.tar.lz skribilo-9bf866163bcf1c187341ab2e364c8dddc17093e8.zip | |
Syntax highlighting and `image'-related fixes.
* src/guile/skribilo/coloring/lisp.scm: Use `(skribilo reader)'.
(lisp-family-fontifier): Take a READ argument.
(skribe-fontifier): Pass `(make-reader 'skribe)' as the reader.
* src/guile/skribilo/module.scm (%skribilo-user-autoloads): Added
`(skribilo prog)'.
* src/guile/skribilo/parameters.scm (*ref-base*): New.
* src/guile/skribilo/prog.scm: Guilified.
* src/guile/skribilo/reader/skribe.scm: Nothing changed.
* src/guile/skribilo/runtime.scm (suffix): New.
(string-ref-base): Don't use `file-separator'. Use `string-contains'
instead of Bigloo/STkLos' `substring=?'.
(convert-image): Use `*image-path*' instead of `skribe-image-path'.
Don't use `make-path'.
git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-20
Diffstat (limited to 'src/guile/skribilo/reader/skribe.scm')
| -rw-r--r-- | src/guile/skribilo/reader/skribe.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/guile/skribilo/reader/skribe.scm b/src/guile/skribilo/reader/skribe.scm index 410ef01..f24c2f7 100644 --- a/src/guile/skribilo/reader/skribe.scm +++ b/src/guile/skribilo/reader/skribe.scm @@ -50,8 +50,8 @@ the Skribe syntax." ;; The reader for what comes after a `#' character. (let* ((dsssl-keyword-reader ;; keywords à la `#!key' (r:make-token-reader #\! - (r:token-reader-procedure - (r:standard-token-reader 'keyword))))) + (r:token-reader-procedure + (r:standard-token-reader 'keyword))))) (r:make-reader (cons dsssl-keyword-reader (map r:standard-token-reader '(character srfi-4 vector |