fixed bug the ordering of metafunction side-conditions during rendering

svn: r15353

collects/redex/private/bitmap-test.ss

@@ -41,11 +41,12 @@
 (define red2
   (reduction-relation
    lang
-   (--> (number_a number_b number_c)
+   (--> (number_a number_b number_c number_d)
         any_z
         (where (any_x any_y) (number_a number_b))
         (side-condition (= (term number_c) 5))
-        (where any_z any_x))))
+        (where any_z any_x)
+        (side-condition (= (term number_d) 5)))))
 
 (test (render-reduction-relation red2)
       "red2.png")
@@ -61,8 +62,9 @@
    1
    (side-condition (not (eq? (term x) (term y))))]
   [(T x x) 
-   n
-   (where n 2)])
+   (any_1 any_2)
+   (where any_1 2)
+   (where any_2 2)])
 
 ;; in this test, the metafunction has 2 clauses 
 ;; with a side-condition on the first clause

collects/redex/private/reduction-semantics.ss

@@ -1238,7 +1238,7 @@
                                                                        #`(cons #,(to-lw/proc #'pat) #,(to-lw/proc #'exp))]
                                                                       [(side-condition x)
                                                                        (to-lw/uq/proc #'x)]))
-                                                                 (syntax->list hm)))
+                                                                 (reverse (syntax->list hm))))
                                                              (syntax->list #'(... seq-of-tl-side-cond/binds)))]
                                                        
                                                        [(((rhs-bind-id/lw . rhs-bind-pat/lw/uq) ...) ...)