summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Court`es2007-06-06 13:16:02 +0000
committerLudovic Court`es2007-06-06 13:16:02 +0000
commitdbdec9cb9efeb96def8ebae70833003367db47ad (patch)
tree359fd28486eac126365933e1db82ddb742f64f4a
parent9396af8f4c6f458679f0eead6054674677096555 (diff)
parent089f71c9b54b6714d5a83e9686c13b43c2b03d93 (diff)
downloadskribilo-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--ChangeLog19
-rw-r--r--src/guile/skribilo/lib.scm7
2 files changed, 23 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index 71ad8d7..f67ec7d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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)))))