cs: fix prompt handler for module/eval prompt and multiple values

pkgs/racket-test-core/tests/racket/module.rktl

@@ -3145,4 +3145,13 @@ case of module-leve bindings; it doesn't cover local bindings.
 
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+(test '(1 2 3)
+      call-with-continuation-prompt
+      (lambda ()
+        (eval (quote (begin (abort-current-continuation (default-continuation-prompt-tag) 1 2 3) 10))))
+      (default-continuation-prompt-tag)
+      list)
+
+;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
 (report-errs)

pkgs/racket-test-core/tests/racket/prompt.rktl

@@ -658,6 +658,16 @@
                  t))
                exn:fail:contract:continuation?))
 
+;;----------------------------------------
+;; Make sure prompt at top level can propagate multiple values
+
+(test '(1 2 3)
+      call-with-continuation-prompt
+      (lambda ()
+        (eval (quote (begin (abort-current-continuation (default-continuation-prompt-tag) 1 2 3) 10))))
+      (default-continuation-prompt-tag)
+      list)
+
 ;;----------------------------------------
 
 (report-errs)

racket/src/cs/linklet.sls

@@ -1074,10 +1074,11 @@
   ;; --------------------------------------------------
 
   (define module-prompt-handler
-    (lambda (arg)
+    (lambda args
-      (abort-current-continuation
+      (apply
+       abort-current-continuation
        (default-continuation-prompt-tag)
-       arg)))
+       args)))
 
   (define call-with-module-prompt
     (case-lambda