diff options
author | Ludovic Courtes | 2006-01-03 23:16:53 +0000 |
---|---|---|
committer | Ludovic Courtes | 2006-01-03 23:16:53 +0000 |
commit | 16077267f2b9018ce714d0b22c684e6addac9db9 (patch) | |
tree | f8c8618c4370515be567db1f999db69d49823884 /src/guile/skribilo/lib.scm | |
parent | 6527e65a24da1d211f44b9f068d6f7ded77c6637 (diff) | |
download | skribilo-16077267f2b9018ce714d0b22c684e6addac9db9.tar.gz skribilo-16077267f2b9018ce714d0b22c684e6addac9db9.tar.lz skribilo-16077267f2b9018ce714d0b22c684e6addac9db9.zip |
Cleaned up the use of a Skribe-compatible `gensym'.
* src/guile/skribilo.scm (gensym): Removed.
* src/guile/skribilo/lib.scm (define-simple-markup): Comply with Guile's
version of `gensym'.
(define-simple-container): Likewise.
* src/guile/skribilo/skribe/api.scm (gensym): Improved. Exported via
`#:replace'.
git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-18
Diffstat (limited to 'src/guile/skribilo/lib.scm')
-rw-r--r-- | src/guile/skribilo/lib.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/guile/skribilo/lib.scm b/src/guile/skribilo/lib.scm index 7a0c306..fc00896 100644 --- a/src/guile/skribilo/lib.scm +++ b/src/guile/skribilo/lib.scm @@ -111,7 +111,8 @@ `(define-markup (,markup :rest opts :key ident class loc) (new markup (markup ',markup) - (ident (or ident (symbol->string (gensym ',markup)))) + (ident (or ident (symbol->string + (gensym ',(symbol->string markup))))) (loc loc) (class class) (required-options '()) @@ -126,7 +127,8 @@ `(define-markup (,markup :rest opts :key ident class loc) (new container (markup ',markup) - (ident (or ident (symbol->string (gensym ',markup)))) + (ident (or ident (symbol->string + (gensym ',(symbol->string markup))))) (loc loc) (class class) (required-options '()) |