From: Andy Wingo <wingo@pobox.com>
Date: Wed, 16 Jan 2013 12:27:55 +0000 (+0100)
Subject: peval-introduced gensyms infix " "
X-Git-Url: http://git.hcoop.net/bpt/guile.git/commitdiff_plain/3404ada0a695b7e9ea1e6221fb1531ebdd73c211

peval-introduced gensyms infix " "

* module/language/tree-il/peval.scm (peval): Gensyms use whitespace as
  an infix, not a dash.  Helps gensym?-like procedures like those in the
  unused lexical analysis.
---

diff --git a/module/language/tree-il/peval.scm b/module/language/tree-il/peval.scm
index 81921e363..a1281fd62 100644
--- a/module/language/tree-il/peval.scm
+++ b/module/language/tree-il/peval.scm
@@ -1,6 +1,6 @@
 ;;; Tree-IL partial evaluator
 
-;; Copyright (C) 2011, 2012 Free Software Foundation, Inc.
+;; Copyright (C) 2011, 2012, 2013 Free Software Foundation, Inc.
 
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -432,7 +432,7 @@ top-level bindings from ENV and return the resulting expression."
   (define (fresh-gensyms vars)
     (map (lambda (var)
            (let ((new (gensym (string-append (symbol->string (var-name var))
-                                             "-"))))
+                                             " "))))
              (set! store (vhash-consq new var store))
              new))
          vars))