promise-race take just promise list

Author: conao3

promise-es6-extensions.el

@@ -149,12 +149,13 @@
   (promise-new (lambda (_resolve reject)
                  (funcall reject value))))
 
-(defun promise-race (values)
-  (promise-new (lambda (resolve reject)
-                 (cl-loop for value across (cl-coerce values 'vector)
-                          do (promise-then (promise-resolve value)
-                                           resolve
-                                           reject)))))
+(defun promise-race (&rest values)
+  (let ((values* (if (promise-class-p (car values)) values (car values))))
+    (promise-new (lambda (resolve reject)
+                   (cl-loop for value across (cl-coerce values* 'vector)
+                            do (promise-then (promise-resolve value)
+                                             resolve
+                                             reject))))))
 
 (cl-defmethod promise-catch ((this promise-class) on-rejected)
   (promise-then this nil on-rejected))