Changeset 27288 in project
- Timestamp:
- 08/24/12 04:25:57 (9 years ago)
- Location:
- release/4/varsubst/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/varsubst/trunk/varsubst.scm
r27090 r27288 75 75 (let ((bnds (car be)) (expr (cadr be))) 76 76 (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)))))) 78 78 (ksubst-term (lambda (t tsubst) (subst-term t tsubst k))) 79 79 (subst1 (fold (lambda (a v subst) -
release/4/varsubst/trunk/varsubst.setup
r27090 r27288 17 17 18 18 ; Assoc list with properties for your extension: 19 `((version 1. 3)19 `((version 1.4) 20 20 ))
Note: See TracChangeset
for help on using the changeset viewer.