From 16077267f2b9018ce714d0b22c684e6addac9db9 Mon Sep 17 00:00:00 2001
From: Ludovic Courtes
Date: Tue, 3 Jan 2006 23:16:53 +0000
Subject: 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
---
 src/guile/skribilo.scm | 16 ----------------
 1 file changed, 16 deletions(-)

(limited to 'src/guile/skribilo.scm')

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