schemify: another variable-order repair

Continues 70459f4105.

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

@@ -3152,7 +3152,11 @@ case of module-leve bindings; it doesn't cover local bindings.
   (namespace-require ''defines-a-spider-struct-type)
   (err/rt-test (eval e)
                exn:fail:contract:variable?
-               #rx"struct:spider"))
+               #rx"struct:spider")
+  (parameterize ([current-namespace (module->namespace ''defines-a-spider-struct-type)])
+    (err/rt-test (eval '(struct spider (legs)))
+                 exn:fail:contract:variable?
+                 #rx"struct:spider")))
 
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 

racket/src/schemify/schemify.rkt

@@ -314,7 +314,7 @@
              [no-prompt?
               (cons
                schemified
-               (loop (cdr l) mut-l null ids knowns))]
+               (loop (cdr l) mut-l null (reverse ids) knowns))]
              [else
               (define expr
                 `(call-with-module-prompt