fix `chaperone-prompt-tag'

collects/tests/racket/prompt.rktl

@@ -323,6 +323,28 @@
                            values
                            (lambda (s) (string-append s "x")))))
 
+;; ----------------------------------------
+;; check that cc proc doesn't break abort proc
+
+(let ()
+  (define l null)
+
+  (define cpt
+    (chaperone-prompt-tag
+     (make-continuation-prompt-tag)
+     (λ (x) (set! l (cons "ho" l)) x)
+     (λ (x) (set! l (cons "hi" l)) x)
+     ;; commented out intentionally, see below
+     (λ (x) x)))
+  
+  (call-with-continuation-prompt
+   (λ ()
+      (abort-current-continuation cpt 5))
+   cpt
+   (λ (x) (+ 1 x)))
+
+  (test '("ho" "hi") values l))
+
 ;; ----------------------------------------
 ;; Check that when a continuation includes a continuation
 ;; application, that a captured requirement to apply a

src/racket/src/fun.c

@@ -5800,7 +5800,7 @@ Scheme_Object *do_chaperone_prompt_tag (const char *name, int is_impersonator, i
       ppos = 5;
     } else
       ppos = 4;
-    redirects = scheme_make_pair(argv[1], redirects);
+    redirects = scheme_make_pair(argv[2], redirects);
   } else {
     ppos = 3;
     redirects = argv[2];