@@ -187,6 +187,14 @@ (define-module (gnu packages racket)
;;
;; 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
@@ -508,7 +516,7 @@ (define-public racket-minimal
(inputs
(cons* openssl
sqlite
- racket-vm-cs ;; TODO (racket-vm-for-system)
+ (racket-vm-for-system)
(extract-package-source*
`((,%racket-origin
("base" "pkgs/base")
@@ -625,7 +633,7 @@ (define-public racket
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)
(extract-package-source*
`((,(origin
(method git-fetch)