Fixed order in which tactic scripts are printed

2015-09-13 18:57:01 -04:00 · 2015-09-13 18:57:01 -04:00 · 13d3016c85
commit 13d3016c85
parent 1bb886cfbb
2 changed files with 2 additions and 2 deletions
--- a/stdlib/tactics/basic.rkt
+++ b/stdlib/tactics/basic.rkt
@ -80,7 +80,7 @@
        [(quit)
         (begin
           (printf "Your tactic script:~n")
-           (pretty-print (map syntax->datum cmds))
+           (pretty-print (reverse (map syntax->datum cmds)))
           (newline)
           ps)]
        ;; TODO: Maybe use (read-eval-print-loop) and its
--- a/stdlib/tactics/sartactics.rkt
+++ b/stdlib/tactics/sartactics.rkt
@ -104,7 +104,7 @@
         (if (< (random 10) 4)
             (begin
               (printf "Don't forget this. It took you long enough:~n")
-               (pretty-print (map syntax->datum cmds))
+               (pretty-print (reverse (map syntax->datum cmds)))
               (newline)
               ps)
             (begin