1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00

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

* match.scm: Likewise.
* expect.scm: Likewise.
* psyntax.pp: Regenerated.
This commit is contained in:
Marius Vollmer 2001-05-19 01:31:33 +00:00
parent d866f4455b
commit 872bd19470
4 changed files with 15 additions and 15 deletions

View file

@ -45,10 +45,10 @@
;;; expect: each test is a procedure which is applied to the accumulating
;;; string.
(defmacro-public expect clauses
(let ((s (gentemp))
(c (gentemp))
(port (gentemp))
(timeout (gentemp)))
(let ((s (gensym))
(c (gensym))
(port (gensym))
(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

File diff suppressed because one or more lines are too long

File diff suppressed because one or more lines are too long

View file

@ -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 ()