From 979ec97b1812fb65c0884b4d4bb2620e9ab5486d Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Thu, 10 Apr 2008 23:20:17 +0000 Subject: [PATCH] Fix mutated-vars for #%plain-lambda. Require stuff. Fix make-eq. svn: r9245 original commit: 890cd46fa162f3db3e39097ca4503f203bb7a43f --- collects/typed-scheme/private/mutated-vars.ss | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/typed-scheme/private/mutated-vars.ss b/collects/typed-scheme/private/mutated-vars.ss index da057e5d..6e7a2c2d 100644 --- a/collects/typed-scheme/private/mutated-vars.ss +++ b/collects/typed-scheme/private/mutated-vars.ss @@ -14,8 +14,8 @@ ;; syntax -> void (define (fmv/list lstx) (for-each find-mutated-vars (syntax->list lstx))) - ;(printf "called with ~a~n" (syntax-object->datum form)) - (kernel-syntax-case* form #f (define-type-alias-internal define-typed-struct-internal require/typed-internal #%app lambda) + ;(printf "called with ~a~n" (syntax->datum form)) + (kernel-syntax-case* form #f (define-type-alias-internal define-typed-struct-internal require/typed-internal) ;; what we care about: set! [(set! v e) (begin @@ -23,10 +23,10 @@ (module-identifier-mapping-put! table #'v #t))] [(define-values (var ...) expr) (find-mutated-vars #'expr)] - [(#%app . rest) (fmv/list #'rest)] + [(#%plain-app . rest) (fmv/list #'rest)] [(begin . rest) (fmv/list #'rest)] [(begin0 . rest) (fmv/list #'rest)] - [(lambda _ . rest) (fmv/list #'rest)] + [(#%plain-lambda _ . rest) (fmv/list #'rest)] [(case-lambda (_ . rest) ...) (for-each fmv/list (syntax->list #'(rest ...)))] [(if e1 e2) (begin (find-mutated-vars #'e1) (find-mutated-vars #'e2))] [(if e1 e2 e3) (begin (find-mutated-vars #'e1) (find-mutated-vars #'e1) (find-mutated-vars #'e3))]