diff options
| author | Ludovic Courtes | 2006-01-03 23:20:25 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2006-01-03 23:20:25 +0000 |
| commit | 2b8a108dbe20569d27cd27e9aae27044a9723e98 (patch) | |
| tree | f8c8618c4370515be567db1f999db69d49823884 /src/guile/skribilo.scm | |
| parent | 9529f21f3cd6d7b54e48cec155c39ca964023531 (diff) | |
| parent | 16077267f2b9018ce714d0b22c684e6addac9db9 (diff) | |
| download | skribilo-2b8a108dbe20569d27cd27e9aae27044a9723e98.tar.gz skribilo-2b8a108dbe20569d27cd27e9aae27044a9723e98.tar.lz skribilo-2b8a108dbe20569d27cd27e9aae27044a9723e98.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--2004-libre/skribilo--devel--1.2--patch-21
Diffstat (limited to 'src/guile/skribilo.scm')
| -rw-r--r-- | src/guile/skribilo.scm | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/src/guile/skribilo.scm b/src/guile/skribilo.scm index a560b46..e131ff3 100644 --- a/src/guile/skribilo.scm +++ b/src/guile/skribilo.scm @@ -39,22 +39,6 @@ exec ${GUILE-guile} --debug -l $0 -c "(apply $main (cdr (command-line)))" "$@" ;;;; ;;;; Code: -(let ((gensym-orig gensym)) - ;; In Skribe, `gensym' expects a symbol as its (optional) argument, while - ;; Guile's `gensym' expect a string. XXX - (set! gensym - (lambda args - (if (null? args) - (gensym-orig) - (let ((the-arg (car args))) - (cond ((symbol? the-arg) - (gensym-orig (symbol->string the-arg))) - ((string? the-arg) - (gensym-orig the-arg)) - (else - (skribe-error 'gensym "Invalid argument type" - the-arg)))))))) - (define-module (skribilo) |