use the right identifier

closes #1845

pkgs/racket-test/tests/racket/contract/arrow-i.rkt

@@ -1550,5 +1550,28 @@
                   'pos 'neg)
         1))
    "(and/c number? (>/c 1))")
+
+  (test/spec-passed/result
+   'two-underscores
+   '((contract (->i ([abc any/c] [_ (abc) any/c]) [_ () any/c])
+               (λ (abc whatevs) whatevs)
+               'pos 'neg)
+     441 144)
+   144)
+
+  (test/spec-passed/result
+   'many-underscores
+   '(call-with-values
+     (λ () ((contract (->i ([abc any/c] [_ (abc) any/c])
+                           (values [_ () any/c]
+                                   [_ () any/c]
+                                   [_ () any/c]
+                                   [_ () any/c]))
+                      (λ (abc whatevs)
+                        (values 1 2 3 4))
+                      'pos 'neg)
+            55 66))
+     list)
+   '(1 2 3 4))
       
   )

racket/collects/racket/contract/private/arr-i-parse.rkt

@@ -377,7 +377,8 @@ code does the parsing and validation of the syntax.
     [[_ (id2 ...) ctc] 
      (begin
        (for-each (λ (x) (check-id stx x)) (syntax->list #'(id2 ...)))
-       (list (eres #'_ (syntax->list #'(id2 ...)) #'ctc 
+       (list (eres (car (syntax-e range))
+                   (syntax->list #'(id2 ...)) #'ctc
                    (compute-quoted-src-expression #'ctc)
                    (car (generate-temporaries '(eres))))))]
     [[id (id2 ...) ctc]