diff options
author | Andy Wingo <wingo@pobox.com> | 2013-01-16 13:27:55 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-01-16 13:27:55 +0100 |
commit | 3404ada0a695b7e9ea1e6221fb1531ebdd73c211 (patch) | |
tree | 77a24a0689e135b88b54fc328417fb5a12a41ba9 | |
parent | 58c4a39d9824d021994754181a369d1daa30f588 (diff) | |
download | guile-3404ada0a695b7e9ea1e6221fb1531ebdd73c211.tar.gz |
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.
-rw-r--r-- | module/language/tree-il/peval.scm | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |