Comment on freshen*

This commit is contained in:
Tony Garnock-Jones 2012-03-11 08:17:49 -04:00
parent 830c598aa4
commit b4fe8dfa21
1 changed files with 4 additions and 0 deletions

View File

@ -164,6 +164,10 @@
(and s (apply-subst s a-env)))
;; Utility used by freshen and canonicalize below.
;; Must visit the term in the order specified by canonicalize
;; below. Here we rely both upon Racket's left-to-right evaluation
;; order and upon defined struct-mappers traversing their arguments in
;; some deterministic order.
(define (freshen* t var-handler canon-handler)
(define env (make-hash)) ;; cheeky use of mutation
(let walk ((t t))