diff options
| author | Ludovic Courtes | 2006-09-04 09:16:34 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2006-09-04 09:16:34 +0000 |
| commit | 2995e1109063b227827a2e50e34e42d72da3ece2 (patch) | |
| tree | 625c566556a05ca0098d08ab9d1cae548f52ce34 /src | |
| parent | 7249dc962a9f31f1c8f3d72a3a55d2112514baff (diff) | |
| download | skribilo-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')
| -rw-r--r-- | src/guile/skribilo/package/base.scm | 16 |
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))) |