From 8a663a54998fb953d4be8ea148790ddcae03bcc4 Mon Sep 17 00:00:00 2001 From: Asumu Takikawa Date: Sun, 4 Jan 2015 20:33:46 -0500 Subject: [PATCH] Remove unnecessary function argument --- typed-racket-lib/typed-racket/typecheck/check-class-unit.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/typed-racket-lib/typed-racket/typecheck/check-class-unit.rkt b/typed-racket-lib/typed-racket/typecheck/check-class-unit.rkt index 3bd00c28..88f16766 100644 --- a/typed-racket-lib/typed-racket/typecheck/check-class-unit.rkt +++ b/typed-racket-lib/typed-racket/typecheck/check-class-unit.rkt @@ -459,7 +459,6 @@ (do-timestamp "checked other top-level exprs") (with-lexical-env/extend-types lexical-names/top-level lexical-types/top-level (check-field-set!s (hash-ref parse-info 'initializer-body) - local-field-table inits)) (do-timestamp "checked field initializers") (define checked-method-types @@ -900,11 +899,11 @@ (register-method-ids stx self-type #f) (tc-expr/t (add-lambda-properties stx))]))) -;; check-field-set!s : Syntax Dict Dict -> Void +;; check-field-set!s : Syntax Dict -> Void ;; Check that fields are initialized to the correct type ;; FIXME: use syntax classes for matching and clearly separate the handling ;; of field initialization and set! uses -(define (check-field-set!s stx local-field-table inits) +(define (check-field-set!s stx inits) (for ([form (syntax->list stx)]) (syntax-parse form #:literal-sets (kernel-literals)