tiny object-instantiation perf. tweak

svn: r14534
2009-04-16 21:24:42 +00:00 · 2009-04-16 21:24:42 +00:00 · 09320cea1c
commit 09320cea1c
parent 7c80111b2c
1 changed files with 4 additions and 2 deletions
--- a/collects/scheme/private/class-internal.ss
+++ b/collects/scheme/private/class-internal.ss
@ -2777,8 +2777,10 @@
 	  ;; All unconsumed named-args must have #f
 	  ;;  "name"s, otherwise an error is raised in
 	  ;;  the leftovers checking.
+          (if (null? al)
+              named-args
              (append (map (lambda (x) (cons #f x)) al)
-		  named-args)]
+                      named-args))]
 	 [else
 	  (obj-error 'instantiate 
 		     "too many initialization arguments:~a~a"