fix a bug introduced in 35ce47d97

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

@@ -488,4 +488,22 @@
    '((contract (dynamic->* #:range-contracts #f) (λ () 1) 'pos 'neg))
    1)
 
+  (test/spec-passed
+   'dynamic->*9
+   '(begin
+      ((contract (dynamic->* #:range-contracts (list (or/c 1 2) (or/c 3 4)))
+                 (λ () (values 1 3))
+                 'pos
+                 'neg))
+      (void)))
+
+  (test/pos-blame
+   'dynamic->*10
+   '(begin
+      ((contract (dynamic->* #:range-contracts (list (or/c 1 2) (or/c 3 4)))
+                 (λ () (values #f #f))
+                 'pos
+                 'neg))
+      (void)))
+  
   )

racket/collects/racket/contract/private/arrow.rkt

@@ -450,7 +450,8 @@
     [(matches-arity-exactly? val min-arity max-arity req-kwd opt-kwd)
      (if (and (null? req-kwd) (null? opt-kwd))
          (cond
-           [(and basic-unsafe-lambda/result-values-assumed
+           [(and basic-unsafe-lambda
+                 basic-unsafe-lambda/result-values-assumed
                  (equal? contract-result-val-count
                          (procedure-result-arity val)))
             (values basic-unsafe-lambda/result-values-assumed #t)]