~ salmonella-environment-setup (master) 0977cf77a415f850a2bb5ffc793fc72d89140842
commit 0977cf77a415f850a2bb5ffc793fc72d89140842
Author: Mario Domenech Goulart <mario@parenteses.org>
AuthorDate: Tue Jul 24 11:18:46 2018 +0200
Commit: Mario Domenech Goulart <mario@parenteses.org>
CommitDate: Tue Jul 24 11:18:46 2018 +0200
chicken-5: remove hooks to use eggs from chicken-5-eggs
diff --git a/conf/common/chicken-5.scm b/conf/common/chicken-5.scm
index 2562b2f..7fd14a8 100644
--- a/conf/common/chicken-5.scm
+++ b/conf/common/chicken-5.scm
@@ -6,50 +6,6 @@
(make-pathname (list (get-environment-variable "CHICKEN_5_PREFIX") "bin")
"salmonella"))
-
-;; Use the chicken-5-eggs repo
-
-(define chicken-5-eggs-directory
- (get-environment-variable "CHICKEN_5_EGGS_DIR"))
-
-(list-eggs
- (let ((egg-location-eggs ((list-eggs))))
- (lambda ()
- (append
- ;; Eggs from egg-locations for C5
- egg-location-eggs
- ;; Eggs from the chicken-5-eggs repo
- (map (lambda (egg)
- (string->symbol
- (pathname-strip-directory (pathname-directory egg))))
- (find-files chicken-5-eggs-directory
- test: (irregex ".*\\.egg$")))))))
-
-(before-make-bootstrap-hook
- (lambda (sources-dir)
- (let ((here (current-directory)))
- (cond ((directory-exists? chicken-5-eggs-directory)
- (change-directory chicken-5-eggs-directory)
- (system* "git checkout -f")
- (system* "git clean -dxf")
- (system* "git checkout master")
- (system* "git pull --rebase"))
- (else
- (change-directory (pathname-directory chicken-5-eggs-directory))
- (system* "git clone git://code.call-cc.org/chicken-5-eggs")))
- (change-directory here))))
-
-(after-make-check-hook
- (lambda (installation-prefix)
- (with-output-to-file
- (make-pathname (list installation-prefix "share" "chicken")
- "setup.defaults")
- (lambda ()
- (pp `(location ,chicken-5-eggs-directory)))
- append:)
- (system* "rm -rf $HOME/.chicken-install.cache")))
-
-
;;; Uncomment the lines below to quickly test the workflow (skip
;;; building CHICKEN and only test one egg)
;;
Trap