aboutsummaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorPhilip McGrath <philip@philipmcgrath.com>2022-02-27 16:29:09 -0500
committerLiliana Marie Prikler <liliana.prikler@gmail.com>2022-03-04 23:43:15 +0100
commit9b1bfc0ce9b3a16c2903bb6053e34ba149090ad2 (patch)
treea7650eb71c5334adadff6d00f5c6523585b11ff6 /gnu
parentf5a73d174795f2797e5157888194cf9e591c51d7 (diff)
downloadguix-9b1bfc0ce9b3a16c2903bb6053e34ba149090ad2.tar
guix-9b1bfc0ce9b3a16c2903bb6053e34ba149090ad2.tar.gz
gnu: racket: Add 'racket-vm-for-system'.
* gnu/packages/racket.scm (racket-vm-for-system): New procedure. (racket-minimal, racket)[inputs]: Use it. Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
Diffstat (limited to 'gnu')
-rw-r--r--gnu/packages/racket.scm12
1 files changed, 10 insertions, 2 deletions
diff --git a/gnu/packages/racket.scm b/gnu/packages/racket.scm
index ae6997c646..3011101d12 100644
--- a/gnu/packages/racket.scm
+++ b/gnu/packages/racket.scm
@@ -187,6 +187,14 @@
;;
;; Code:
+(define* (racket-vm-for-system #:optional
+ (system (or (%current-target-system)
+ (%current-system))))
+ "Return 'racket-vm-cs' if it supports SYSTEM; 'racket-vm-bc' otherwise."
+ (if (nix-system->chez-machine system)
+ racket-vm-cs
+ racket-vm-bc))
+
(define %racket-version "8.4")
;; ^ Remember to update chez-scheme-for-racket-bootstrap-bootfiles!
(define %racket-commit
@@ -483,7 +491,7 @@ used to build the name of the resulting store item."
(inputs
(list openssl
sqlite
- racket-vm-cs ;; TODO (racket-vm-for-system)
+ (racket-vm-for-system)
(racket-packages-origin
"base" %racket-origin
'(("base" "pkgs/base")
@@ -601,7 +609,7 @@ DrRacket IDE, are not included.")
unixodbc
libedit ;; TODO reconsider in light of expeditor and readline-gpl
racket-minimal ;; <-- TODO non-tethered layer
- racket-vm-cs ;; TODO (racket-vm-for-system)
+ (racket-vm-for-system)
(simple-racket-origin
"2d" (base32 "1zzcz5qyjv7syi41vb8jkxjp1rqgj61zbsdrg0nlc4qy9qsafzgr")
'("2d" "2d-doc" "2d-lib"))