From a1095d2fc11db997fdb52a07f695fc47a72de119 Mon Sep 17 00:00:00 2001 From: Stevie Strickland Date: Mon, 15 Nov 2010 13:14:07 -0500 Subject: [PATCH] Remove unnecessary argument from make-field-map. --- collects/racket/private/class-internal.rkt | 6 ++---- collects/racket/private/classidmap.rkt | 11 ++++------- 2 files changed, 6 insertions(+), 11 deletions(-) diff --git a/collects/racket/private/class-internal.rkt b/collects/racket/private/class-internal.rkt index 01142d85e6..fbfcd6f65c 100644 --- a/collects/racket/private/class-internal.rkt +++ b/collects/racket/private/class-internal.rkt @@ -1194,8 +1194,7 @@ (quote-syntax inherit-field-name) (quote-syntax inherit-field-name-localized) (quote-syntax inherit-field-accessor) - (quote-syntax inherit-field-mutator) - '()) + (quote-syntax inherit-field-mutator)) ... (make-field-map trace-flag (quote-syntax the-finder) @@ -1204,8 +1203,7 @@ (quote-syntax local-field) (quote-syntax local-field-localized) (quote-syntax local-field-accessor) - (quote-syntax local-field-mutator) - '()) + (quote-syntax local-field-mutator)) ... (make-rename-super-map (quote-syntax the-finder) (quote the-obj) diff --git a/collects/racket/private/classidmap.rkt b/collects/racket/private/classidmap.rkt index 387400790b..1faf5ee5a2 100644 --- a/collects/racket/private/classidmap.rkt +++ b/collects/racket/private/classidmap.rkt @@ -61,7 +61,7 @@ (quasisyntax/loc stx (#,replace-stx . args))]))))) (define (make-field-map trace-flag the-finder the-obj the-unwrapper the-binder the-binder-localized - field-accessor field-mutator field-pos/null) + field-accessor field-mutator) (let ([set!-stx (datum->syntax the-finder 'set!)]) (mk-set!-trans the-binder-localized @@ -74,8 +74,7 @@ [trace (syntax/loc stx (set-event obj (quote id) id))] [set (quasisyntax/loc stx ((unsyntax field-mutator) - ((unsyntax the-unwrapper) obj) - (unsyntax-splicing field-pos/null) id))]) + ((unsyntax the-unwrapper) obj) id))]) (if trace-flag (syntax/loc stx (let* bindings trace set)) (syntax/loc stx (let* bindings set))))] @@ -84,8 +83,7 @@ [trace (syntax/loc stx (get-event obj (quote id)))] [call (quasisyntax/loc stx (((unsyntax field-accessor) - ((unsyntax the-unwrapper) obj) - (unsyntax-splicing field-pos/null)) . args))]) + ((unsyntax the-unwrapper) obj)) . args))]) (if trace-flag (syntax/loc stx (let* bindings trace call)) (syntax/loc stx (let* bindings call))))] @@ -94,8 +92,7 @@ [trace (syntax/loc stx (get-event obj (quote id)))] [get (quasisyntax/loc stx ((unsyntax field-accessor) - ((unsyntax the-unwrapper) obj) - (unsyntax-splicing field-pos/null)))]) + ((unsyntax the-unwrapper) obj)))]) (if trace-flag (syntax/loc stx (let* bindings trace get)) (syntax/loc stx (let* bindings get))))]))))))