suzanne.soy/cur
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed order in which tactic scripts are printed

Browse Source
This commit is contained in:
William J. Bowman 2015-09-13 18:57:01 -04:00
parent 1bb886cfbb
commit 13d3016c85
No known key found for this signature in database
GPG Key ID: DDD48D26958F0D1A
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
stdlib/tactics/basic.rkt
View File

@ -80,7 +80,7 @@
[(quit) [(quit)
(begin (begin
(printf "Your tactic script:~n") (printf "Your tactic script:~n")
(pretty-print (map syntax->datum cmds)) (pretty-print (reverse (map syntax->datum cmds)))
(newline) (newline)
ps)] ps)]
;; TODO: Maybe use (read-eval-print-loop) and its ;; TODO: Maybe use (read-eval-print-loop) and its

2
stdlib/tactics/sartactics.rkt
View File

@ -104,7 +104,7 @@
(if (< (random 10) 4) (if (< (random 10) 4)
(begin (begin
(printf "Don't forget this. It took you long enough:~n") (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) (newline)
ps) ps)
(begin (begin