[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: import cran: Print package stream in the expected order.
From: |
Ricardo Wurmus |
Subject: |
01/01: import cran: Print package stream in the expected order. |
Date: |
Tue, 28 Mar 2017 08:58:48 -0400 (EDT) |
rekado pushed a commit to branch master
in repository guix.
commit 1a75083b0d532d9874ea073aa16a8c63d0fec685
Author: Ricardo Wurmus <address@hidden>
Date: Tue Mar 28 15:54:10 2017 +0200
import cran: Print package stream in the expected order.
* guix/scripts/import/cran.scm (guix-import-cran): Reverse list of packages.
---
guix/scripts/import/cran.scm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/guix/scripts/import/cran.scm b/guix/scripts/import/cran.scm
index 66c660a..c9a9eab 100644
--- a/guix/scripts/import/cran.scm
+++ b/guix/scripts/import/cran.scm
@@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Eric Bavier <address@hidden>
-;;; Copyright © 2015 Ricardo Wurmus <address@hidden>
+;;; Copyright © 2015, 2017 Ricardo Wurmus <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -99,8 +99,8 @@ Import and convert the CRAN package for PACKAGE-NAME.\n"))
`(define-public ,(string->symbol name)
,pkg))
(_ #f))
- (stream->list (recursive-import package-name
- (or (assoc-ref opts 'repo)
'cran))))
+ (reverse (stream->list (recursive-import package-name
+ (or (assoc-ref opts
'repo) 'cran)))))
;; Single import
(let ((sexp (cran->guix-package package-name
(or (assoc-ref opts 'repo) 'cran))))