Compare commits
1 commit
Author | SHA1 | Date | |
---|---|---|---|
d5ef5afbc6 |
1 changed files with 12 additions and 12 deletions
|
@ -190,20 +190,20 @@ function."
|
||||||
;; Why not?
|
;; Why not?
|
||||||
(flush-all-ports)))))
|
(flush-all-ports)))))
|
||||||
|
|
||||||
(define (add-sp1-bin-to-path-hook)
|
(define (make-bin-to-path-hook dir)
|
||||||
(let ((home (getenv "HOME"))
|
(λ ()
|
||||||
(path (or (getenv "PATH") "")))
|
(let ((home (getenv "HOME"))
|
||||||
(setenv "PATH" (string-append home "/.sp1/bin:" path))))
|
(path (or (getenv "PATH") "")))
|
||||||
|
(setenv "PATH" (string-append home "/" dir ":" path)))))
|
||||||
|
|
||||||
(define (add-cargo-bin-to-path-hook)
|
(define add-sp1-bin-to-path-hook
|
||||||
(let ((home (getenv "HOME"))
|
(make-bin-to-path-hook ".sp1/bin"))
|
||||||
(path (or (getenv "PATH") "")))
|
|
||||||
(setenv "PATH" (string-append home "/.cargo/bin:" path))))
|
|
||||||
|
|
||||||
(define (add-rustup-bin-to-path-hook)
|
(define add-cargo-bin-to-path-hook
|
||||||
(let ((home (getenv "HOME"))
|
(make-bin-to-path-hook ".cargo/bin"))
|
||||||
(path (or (getenv "PATH") "")))
|
|
||||||
(setenv "PATH" (string-append home "/.rustup/bin:" path))))
|
(define add-rustup-bin-to-path-hook
|
||||||
|
(make-bin-to-path-hook ".rustup/bin"))
|
||||||
|
|
||||||
(define* (exec-in-rustup-environment cmd
|
(define* (exec-in-rustup-environment cmd
|
||||||
#:key home (mappings '()) (hooks '()))
|
#:key home (mappings '()) (hooks '()))
|
||||||
|
|
Loading…
Reference in a new issue