suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

racket/class: fix empty define-values

Browse Source 
Closes PR 14451
This commit is contained in:
Matthew Flatt 2014-04-17 10:46:30 -06:00
parent 72bc8ffd56
commit 4bf1f90c3c
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/racket-pkgs/racket-test/tests/racket/object.rktl
View File

@ -281,6 +281,8 @@
(class-keyword-test #'super-instantiate) (class-keyword-test #'super-instantiate)
(class-keyword-test #'inspect) (class-keyword-test #'inspect)
(test #t class? (class object% (define-values () (values))))
;; ------------------------------------------------------------ ;; ------------------------------------------------------------
;; Test basic functionality ;; Test basic functionality

3
racket/collects/racket/private/class-internal.rkt
View File

@ -1207,7 +1207,8 @@
(syntax/loc e (syntax/loc e
(let-values ([(temp ...) expr]) (let-values ([(temp ...) expr])
(set! id (field-initialization-value temp)) (set! id (field-initialization-value temp))
...))))]) ...
(void)))))])
(syntax-track-origin assignment e #'d-v))] (syntax-track-origin assignment e #'d-v))]
[(_init orig idp ...) [(_init orig idp ...)
(and (identifier? (syntax _init)) (and (identifier? (syntax _init))