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

tiny object-instantiation perf. tweak

Browse Source 
svn: r14534
This commit is contained in:
Matthew Flatt 2009-04-16 21:24:42 +00:00
parent 7c80111b2c
commit 09320cea1c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/scheme/private/class-internal.ss
View File

@ -2777,8 +2777,10 @@
;; All unconsumed named-args must have #f ;; All unconsumed named-args must have #f
;; "name"s, otherwise an error is raised in ;; "name"s, otherwise an error is raised in
;; the leftovers checking. ;; the leftovers checking.
(if (null? al)
named-args
(append (map (lambda (x) (cons #f x)) al) (append (map (lambda (x) (cons #f x)) al)
named-args)] named-args))]
[else [else
(obj-error 'instantiate (obj-error 'instantiate
"too many initialization arguments:~a~a" "too many initialization arguments:~a~a"