summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtes2006-09-04 09:16:34 +0000
committerLudovic Courtes2006-09-04 09:16:34 +0000
commit2995e1109063b227827a2e50e34e42d72da3ece2 (patch)
tree625c566556a05ca0098d08ab9d1cae548f52ce34 /src/guile
parent7249dc962a9f31f1c8f3d72a3a55d2112514baff (diff)
downloadskribilo-2995e1109063b227827a2e50e34e42d72da3ece2.tar.gz
skribilo-2995e1109063b227827a2e50e34e42d72da3ece2.tar.lz
skribilo-2995e1109063b227827a2e50e34e42d72da3ece2.zip
`base' package: Removed more sources of duplicate identifiers.
* src/guile/skribilo/package/base.scm (~): Use `gensym' to produce unique identifiers. (ref)[unref]: Likewise. [handle-ref]: Likewise. [do-title-ref]: Likewise. [mark-ref]: Likewise. [make-bib-ref]: Likewise. [line-ref]: Likewise. git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-59
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/package/base.scm16
1 files changed, 8 insertions, 8 deletions
diff --git a/src/guile/skribilo/package/base.scm b/src/guile/skribilo/package/base.scm
index 8ba9024..bbb2a62 100644
--- a/src/guile/skribilo/package/base.scm
+++ b/src/guile/skribilo/package/base.scm
@@ -294,7 +294,7 @@
(define-markup (~ #!rest opts #!key (class #f))
(new markup
(markup '~)
- (ident (gensym "~"))
+ (ident (symbol->string (gensym "~")))
(class class)
(required-options '())
(options (the-options opts :class))
@@ -1030,7 +1030,7 @@
(skribe-warning/ast 1 ast 'ref msg text)
(new markup
(markup 'unref)
- (ident (symbol->string 'unref))
+ (ident (symbol->string (gensym "unref")))
(class class)
(required-options '(:text))
(options `((kind ,kind) ,@(the-options opts :ident :class)))
@@ -1039,7 +1039,7 @@
(skribe-warning 1 'ref msg text)
(new markup
(markup 'unref)
- (ident (symbol->string 'unref))
+ (ident (symbol->string (gensym "unref")))
(class class)
(required-options '(:text))
(options `((kind ,kind) ,@(the-options opts :ident :class)))
@@ -1057,7 +1057,7 @@
(define (handle-ref text)
(new markup
(markup 'ref)
- (ident (symbol->string 'ref))
+ (ident (symbol->string (gensym "handle-ref")))
(class class)
(required-options '(:text))
(options `((kind handle) ,@(the-options opts :ident :class)))
@@ -1077,7 +1077,7 @@
(if s
(new markup
(markup 'ref)
- (ident (symbol->string 'title-ref))
+ (ident (symbol->string (gensym "title-ref")))
(class class)
(required-options '(:text))
(options `((kind ,kind)
@@ -1113,7 +1113,7 @@
(if s
(new markup
(markup 'ref)
- (ident (symbol->string 'ref))
+ (ident (symbol->string (gensym "mark-ref")))
(class class)
(required-options '(:text))
(options `((kind mark)
@@ -1143,7 +1143,7 @@
(if (pair? text)
(new markup
(markup 'bib-ref+)
- (ident (symbol->string 'bib-ref+))
+ (ident (symbol->string (gensym "bib-ref+")))
(class class)
(options (the-options opts :ident :class))
(body (map make-bib-ref text)))
@@ -1162,7 +1162,7 @@
(if (pair? l)
(new markup
(markup 'line-ref)
- (ident (symbol->string 'line-ref))
+ (ident (symbol->string (gensym "line-ref")))
(class class)
(options `((:text ,(markup-ident (car l)))
,@(the-options opts :ident :class)))