* psyntax.ss (build-lexical-var): Use gensym instead of gentemp.

* match.scm: Likewise.
* expect.scm: Likewise.
* psyntax.pp: Regenerated.

ice-9/expect.scm

@@ -45,10 +45,10 @@
 ;;; expect: each test is a procedure which is applied to the accumulating
 ;;; string.
 (defmacro-public expect clauses
-  (let ((s (gentemp))
+  (let ((s (gensym))
-	(c (gentemp))
+	(c (gensym))
-	(port (gentemp))
+	(port (gensym))
-	(timeout (gentemp)))
+	(timeout (gensym)))
     `(let ((,s "")
 	   (,port (or expect-port (current-input-port)))
 	   ;; when timeout occurs, in floating point seconds.
@@ -123,7 +123,7 @@
 	    (cond ((null? tests)
 		   (list (reverse defs) `(expect ,@(reverse body))))
 		  (else
-		   (let ((rxname (gentemp)))
+		   (let ((rxname (gensym)))
 		     (next-test (cdr tests)
 				(cdr exprs)
 				(cons `(,rxname (make-regexp

ice-9/psyntax.ss

@@ -424,7 +424,7 @@
 
 (define-syntax build-lexical-var
   (syntax-rules ()
-    ((_ src id) (gentemp (symbol->string id) generated-symbols))))
+    ((_ src id) (gensym (symbol->string id)))))
 
 (define-syntax self-evaluating?
   (syntax-rules ()