From 4bf1f90c3cdfdbfff0e99f62deb1926430ab0d79 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 17 Apr 2014 10:46:30 -0600 Subject: [PATCH] racket/class: fix empty `define-values` Closes PR 14451 --- pkgs/racket-pkgs/racket-test/tests/racket/object.rktl | 2 ++ racket/collects/racket/private/class-internal.rkt | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/object.rktl b/pkgs/racket-pkgs/racket-test/tests/racket/object.rktl index b3f65ed02f..ea856f62eb 100644 --- a/pkgs/racket-pkgs/racket-test/tests/racket/object.rktl +++ b/pkgs/racket-pkgs/racket-test/tests/racket/object.rktl @@ -281,6 +281,8 @@ (class-keyword-test #'super-instantiate) (class-keyword-test #'inspect) +(test #t class? (class object% (define-values () (values)))) + ;; ------------------------------------------------------------ ;; Test basic functionality diff --git a/racket/collects/racket/private/class-internal.rkt b/racket/collects/racket/private/class-internal.rkt index 6324870b29..0e1ab0b7a1 100644 --- a/racket/collects/racket/private/class-internal.rkt +++ b/racket/collects/racket/private/class-internal.rkt @@ -1207,7 +1207,8 @@ (syntax/loc e (let-values ([(temp ...) expr]) (set! id (field-initialization-value temp)) - ...))))]) + ... + (void)))))]) (syntax-track-origin assignment e #'d-v))] [(_init orig idp ...) (and (identifier? (syntax _init))