Changeset 27288 in project


Ignore:
Timestamp:
08/24/12 04:25:57 (9 years ago)
Author:
Ivan Raikov
Message:

varsubst: use string->symbol for symbols produced by gensym

Location:
release/4/varsubst/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • release/4/varsubst/trunk/varsubst.scm

    r27090 r27288  
    7575                      (let ((bnds (car be)) (expr (cadr be)))
    7676                        (let-values (((as us) (unzip2 bnds)))
    77                           (let* ((vs (list-tabulate (length as) (lambda (x) (gensym prefix))))
     77                          (let* ((vs (list-tabulate (length as) (lambda (x) (string->symbol (symbol->string (gensym prefix))))))
    7878                                 (ksubst-term  (lambda (t tsubst) (subst-term t tsubst k)))
    7979                                 (subst1 (fold (lambda (a v subst)

  • release/4/varsubst/trunk/varsubst.setup

    r27090 r27288  
    1717
    1818  ; Assoc list with properties for your extension:
    19   `((version 1.3)
     19  `((version 1.4)
    2020    ))
Note: See TracChangeset for help on using the changeset viewer.