From 8b0024926588019e143269bc2934431187a41b31 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 28 Nov 2019 05:37:23 -0700
Subject: [PATCH] schemify: another variable-order repair

Continues 70459f4105.
---
 pkgs/racket-test-core/tests/racket/module.rktl | 6 +++++-
 racket/src/schemify/schemify.rkt               | 2 +-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/pkgs/racket-test-core/tests/racket/module.rktl b/pkgs/racket-test-core/tests/racket/module.rktl
index dbc17bd696..6416f6d270 100644
--- a/pkgs/racket-test-core/tests/racket/module.rktl
+++ b/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")))
 
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
diff --git a/racket/src/schemify/schemify.rkt b/racket/src/schemify/schemify.rkt
index 48ba6ec100..9355c74f53 100644
--- a/racket/src/schemify/schemify.rkt
+++ b/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