diff options
| author | Ludovic Court`es | 2007-06-06 13:16:02 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-06-06 13:16:02 +0000 |
| commit | dbdec9cb9efeb96def8ebae70833003367db47ad (patch) | |
| tree | 359fd28486eac126365933e1db82ddb742f64f4a | |
| parent | 9396af8f4c6f458679f0eead6054674677096555 (diff) | |
| parent | 089f71c9b54b6714d5a83e9686c13b43c2b03d93 (diff) | |
| download | skribilo-dbdec9cb9efeb96def8ebae70833003367db47ad.tar.gz skribilo-dbdec9cb9efeb96def8ebae70833003367db47ad.tar.lz skribilo-dbdec9cb9efeb96def8ebae70833003367db47ad.zip | |
lib: Minor fixes that make Guile-Lint happy.
* src/guile/skribilo/lib.scm (define-simple-markup): Don't quote strings.
(define-simple-container): Likewise.
(define-processor-markup): Likewise. Added a `loc' argument. Pass
location information to `new'.
git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-101
| -rw-r--r-- | ChangeLog | 19 | ||||
| -rw-r--r-- | src/guile/skribilo/lib.scm | 7 |
2 files changed, 23 insertions, 3 deletions
@@ -2,6 +2,25 @@ # arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2 # +2007-06-06 13:16:02 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-101 + + Summary: + lib: Minor fixes that make Guile-Lint happy. + Revision: + skribilo--devo--1.2--patch-101 + + * src/guile/skribilo/lib.scm (define-simple-markup): Don't quote strings. + (define-simple-container): Likewise. + (define-processor-markup): Likewise. Added a `loc' argument. Pass + location information to `new'. + + modified files: + ChangeLog src/guile/skribilo/lib.scm + + new patches: + lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-60 + + 2007-06-06 13:15:03 GMT Ludovic Court`es <ludovic.courtes@laas.fr> patch-100 Summary: diff --git a/src/guile/skribilo/lib.scm b/src/guile/skribilo/lib.scm index a86e756..18a60a3 100644 --- a/src/guile/skribilo/lib.scm +++ b/src/guile/skribilo/lib.scm @@ -118,7 +118,7 @@ (new markup (markup ',markup) (ident (or ident (symbol->string - (gensym ',(symbol->string markup))))) + (gensym ,(symbol->string markup))))) (loc (or loc &invocation-location)) (class class) (required-options '()) @@ -134,7 +134,7 @@ (new container (markup ',markup) (ident (or ident (symbol->string - (gensym ',(symbol->string markup))))) + (gensym ,(symbol->string markup))))) (loc (or loc &invocation-location)) (class class) (required-options '()) @@ -146,8 +146,9 @@ ;;; DEFINE-PROCESSOR-MARKUP ;;; (define-macro (define-processor-markup proc) - `(define-markup (,proc #:rest opts) + `(define-markup (,proc #:rest opts :key loc) (new processor + (loc (or loc &invocation-location)) (engine (find-engine ',proc)) (body (the-body opts)) (options (the-options opts))))) |