mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

fix gensym creation in psyntax

Browse source 
* module/ice-9/psyntax.scm (build-lexical-var): Make our gensyms really
  unique. Before, there was a chance that different lexicals could
  result in the same gensym.
* module/ice-9/psyntax-pp.scm: Regenerate.
This commit is contained in:
Andy Wingo 2009-07-24 12:06:19 +02:00
parent 51e9ba2f38
commit d95eb7f49f
2 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/ice-9/psyntax-pp.scm
View file

@ -54,7 +54,8 @@
(let ((id293 (if (syntax-object?99 id292) (let ((id293 (if (syntax-object?99 id292)
(syntax-object-expression100 id292) (syntax-object-expression100 id292)
id292))) id292)))
(gensym (symbol->string id293))))) (gensym
(string-append (symbol->string id293) " ")))))
(strip161 (strip161
(lambda (x294 w295) (lambda (x294 w295)
(if (memq (quote top) (wrap-marks118 w295)) (if (memq (quote top) (wrap-marks118 w295))

6
module/ice-9/psyntax.scm
View file

@ -1,6 +1,6 @@
;;;; -*-scheme-*- ;;;; -*-scheme-*-
;;;; ;;;;
;;;; Copyright (C) 2001, 2003, 2006 Free Software Foundation, Inc. ;;;; Copyright (C) 2001, 2003, 2006, 2009 Free Software Foundation, Inc.
;;;; ;;;;
;;;; This library is free software; you can redistribute it and/or ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -529,10 +529,10 @@
`(letrec ,(map list vars val-exps) ,body-exp) `(letrec ,(map list vars val-exps) ,body-exp)
src)))))) src))))))
;; FIXME: wingo: use make-lexical ? ;; FIXME: use a faster gensym
(define-syntax build-lexical-var (define-syntax build-lexical-var
(syntax-rules () (syntax-rules ()
((_ src id) (gensym (symbol->string id))))) ((_ src id) (gensym (string-append (symbol->string id) " ")))))
(define-structure (syntax-object expression wrap module)) (define-structure (syntax-object expression wrap module))