From 089f71c9b54b6714d5a83e9686c13b43c2b03d93 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Wed, 6 Jun 2007 09:23:54 +0000
Subject: 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: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-60
---
 src/guile/skribilo/lib.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/guile')

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)))))
-- 
cgit v1.2.3