diff options
| author | Philip McGrath <philip@philipmcgrath.com> | 2022-02-27 16:29:09 -0500 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2022-03-04 23:43:15 +0100 |
| commit | 9b1bfc0ce9b3a16c2903bb6053e34ba149090ad2 (patch) | |
| tree | a7650eb71c5334adadff6d00f5c6523585b11ff6 | |
| parent | f5a73d174795f2797e5157888194cf9e591c51d7 (diff) | |
| download | guix-patches-9b1bfc0ce9b3a16c2903bb6053e34ba149090ad2.tar guix-patches-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>
| -rw-r--r-- | gnu/packages/racket.scm | 12 |
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")) |