summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2018-04-23 09:50:31 +0200
committerMathieu Othacehe <mathieu.othacehe@parrot.com>2018-04-23 11:28:37 +0200
commit85a373f639376307156510bbf24ec2fa30da5acd (patch)
tree68ed907576e7bb1cf6517f65652282c94ce80e4d
parentc40e61bd3e9c4d1ceca53002c7bc21ff0754cfff (diff)
downloadcuirass-85a373f639376307156510bbf24ec2fa30da5acd.tar
cuirass-85a373f639376307156510bbf24ec2fa30da5acd.tar.gz
http: Reverse evaluations list.
* src/cuirass/database.scm (db-get-evaluations): Reverse returned evaluations list.
-rw-r--r--src/cuirass/database.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index 8437475..a1398bc 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -548,7 +548,7 @@ INSERT INTO Stamps (specification, stamp) VALUES ("
FROM Evaluations ORDER BY id DESC LIMIT " limit ";"))
(evaluations '()))
(match rows
- (() evaluations)
+ (() (reverse evaluations))
((#(id specification revision)
. rest)
(loop rest