[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
16/38: Revert "build-system/asdf: Fix normalize-string to support versio
From: |
Pierre Neidhardt |
Subject: |
16/38: Revert "build-system/asdf: Fix normalize-string to support versioned dependencies" |
Date: |
Tue, 2 Oct 2018 14:00:11 -0400 (EDT) |
ambrevar pushed a commit to branch wip-next-browser
in repository guix.
commit fe99530a0f4405ce55c2093beb0df090cb006aaa
Author: Pierre Neidhardt <address@hidden>
Date: Mon Oct 1 15:33:57 2018 +0200
Revert "build-system/asdf: Fix normalize-string to support versioned
dependencies"
This reverts commit 06f1a4b0d75a596b0dfa171ed5e5a9e6303655f0.
---
guix/build/lisp-utils.scm | 12 +++---------
1 file changed, 3 insertions(+), 9 deletions(-)
diff --git a/guix/build/lisp-utils.scm b/guix/build/lisp-utils.scm
index 5bc9ed7..21cb620 100644
--- a/guix/build/lisp-utils.scm
+++ b/guix/build/lisp-utils.scm
@@ -77,15 +77,9 @@
(string->char-set
"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+-._?="))
-(define (normalize-string str-or-list)
- "Replace invalid characters in STR-OR-LIST with a hyphen."
- ;; Dependencies can be either strings or list with properties, e.g.
- ;; (:version "bar" "0.1.2")
- (if (string? str-or-list)
- (string-join (string-tokenize str-or-list valid-char-set) "-")
- (map (lambda (e) (if (string? e)
- (normalize-string e)
- e)) str-or-list)))
+(define (normalize-string str)
+ "Replace invalid characters in STR with a hyphen."
+ (string-join (string-tokenize str valid-char-set) "-"))
(define (inputs->asd-file-map inputs)
"Produce a hash table of the form (system . asd-file), where system is the
- 24/38: prove-asdf (FIX), (continued)
- 24/38: prove-asdf (FIX), Pierre Neidhardt, 2018/10/02
- 29/38: gnu: Add queues.simple-queue., Pierre Neidhardt, 2018/10/02
- 17/38: build-system/asdf: Handle all asdf dependency specifications., Pierre Neidhardt, 2018/10/02
- 06/38: gnu: Add lift., Pierre Neidhardt, 2018/10/02
- 31/38: gnu: Add queues.priority-queue., Pierre Neidhardt, 2018/10/02
- 08/38: gnu: Add cl-colors., Pierre Neidhardt, 2018/10/02
- 15/38: cl-string-match (FIX), Pierre Neidhardt, 2018/10/02
- 19/38: anaphora (FIX), Pierre Neidhardt, 2018/10/02
- 14/38: gnu: Add simple-scanf., Pierre Neidhardt, 2018/10/02
- 30/38: gnu: Add queues.simple-cqueue., Pierre Neidhardt, 2018/10/02
- 16/38: Revert "build-system/asdf: Fix normalize-string to support versioned dependencies",
Pierre Neidhardt <=
- 27/38: gnu: Add puri., Pierre Neidhardt, 2018/10/02
- 26/38: gnu: Add ptester., Pierre Neidhardt, 2018/10/02
- 34/38: gnu: Add sbcl-cffi-toolchain., Pierre Neidhardt, 2018/10/02
- 23/38: ansi-text (FIX), Pierre Neidhardt, 2018/10/02
- 25/38: prove (FIX), Pierre Neidhardt, 2018/10/02
- 32/38: gnu: Add queues.priority-cqueue., Pierre Neidhardt, 2018/10/02
- 37/38: gnu: Add sbcl-cffi., Pierre Neidhardt, 2018/10/02
- 33/38: gnu: Add sbcl-cffi-bootstrap., Pierre Neidhardt, 2018/10/02
- 38/38: next-browser (FIX), Pierre Neidhardt, 2018/10/02
- 36/38: gnu: Add sbcl-cffi-grovel., Pierre Neidhardt, 2018/10/02