From 74e667d14912b9243043b43995848d962569a9a1 Mon Sep 17 00:00:00 2001
From: Mathieu Lirzin <mthl@gnu.org>
Date: Sun, 24 Jan 2016 17:42:39 +0100
Subject: packages: Use '@' in package record printers.

* guix/packages.scm <package>: Use '@' in record printer.
* guix/import/cabal.scm <cabal-package>: Likewise
* guix/import/elpa.scm <elpa-package>: Likewise.
* tests/packages.scm: Adapt to it.
---
 guix/import/cabal.scm | 2 +-
 guix/import/elpa.scm  | 2 +-
 guix/packages.scm     | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'guix')

diff --git a/guix/import/cabal.scm b/guix/import/cabal.scm
index c20e074e18..09130e4498 100644
--- a/guix/import/cabal.scm
+++ b/guix/import/cabal.scm
@@ -608,7 +608,7 @@ (define-record-type <cabal-package>
 
 (set-record-type-printer! <cabal-package>
                           (lambda (package port)
-                            (format port "#<cabal-package ~a-~a>"
+                            (format port "#<cabal-package ~a@~a>"
                                       (cabal-package-name package)
                                       (cabal-package-version package))))
 
diff --git a/guix/import/elpa.scm b/guix/import/elpa.scm
index 8c10668293..529de4f232 100644
--- a/guix/import/elpa.scm
+++ b/guix/import/elpa.scm
@@ -121,7 +121,7 @@ (define-record-type <elpa-package>
 
 (set-record-type-printer! <elpa-package>
                           (lambda (package port)
-                            (format port "#<elpa-package ~a-~a>"
+                            (format port "#<elpa-package ~a@~a>"
                                       (elpa-package-name package)
                                       (elpa-package-version package))))
 
diff --git a/guix/packages.scm b/guix/packages.scm
index 41f3e20c41..6ec168c204 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -278,7 +278,7 @@ (define-record-type* <package>
                           (lambda (package port)
                             (let ((loc    (package-location package))
                                   (format simple-format))
-                              (format port "#<package ~a-~a ~a~a>"
+                              (format port "#<package ~a@~a ~a~a>"
                                       (package-name package)
                                       (package-version package)
                                       (if loc
-- 
cgit v1.2.3