amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: configure-layer.rkt: Adjust indentation.

Browse source 
* gnu/packages/racket.scm (configure-layer.rkt): Wrap 'command-line' in
'define-values' to reduce rightward drift.

Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
This commit is contained in:
Philip McGrath 2022-02-27 16:29:05 -05:00 • committed by Liliana Marie Prikler
parent 049a27d8a8
commit f6cd4279a0
No known key found for this signature in database
GPG key ID: 442A84B8C70E2F87
1 changed files with 83 additions and 81 deletions
Download patch file Download diff file Expand all files Collapse all files

4
gnu/packages/racket.scm
View file

@ -927,6 +927,7 @@ languages such as Typed Racket, R5RS and R6RS Scheme, Algol 60, and Datalog.")
;; Guile's reader doesn't support #rx"racket" ;; Guile's reader doesn't support #rx"racket"
(regexp "racket")) (regexp "racket"))
(define extra-foreign-lib-search-dirs '()) (define extra-foreign-lib-search-dirs '())
(define-values [parent-layer prefix]
(command-line (command-line
#:once-each #:once-each
[("--extra-foreign-lib-search-dirs") dir-list [("--extra-foreign-lib-search-dirs") dir-list
@ -934,6 +935,7 @@ languages such as Typed Racket, R5RS and R6RS Scheme, Algol 60, and Datalog.")
(set! extra-foreign-lib-search-dirs (set! extra-foreign-lib-search-dirs
(call-with-input-string dir-list read))] (call-with-input-string dir-list read))]
#:args (parent-layer prefix) #:args (parent-layer prefix)
(values parent-layer prefix)))
(let* ([config (let* ([config
(for/fold (for/fold
([config (file->value (build-path parent-layer ([config (file->value (build-path parent-layer
@ -1007,4 +1009,4 @@ languages such as Typed Racket, R5RS and R6RS Scheme, Algol 60, and Datalog.")
(call-with-output-file* (call-with-output-file*
new-config-pth new-config-pth
(lambda (out) (lambda (out)
(pretty-write config out)))))))) (pretty-write config out)))))))