ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-13 14:40:21 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

quirks: Adjust patch to allow traveling back to Dec. 2018.

Browse source 
Fixes <https://bugs.gnu.org/42519>.

This fixes:

  guix time-machine --commit=897f303d2fa61497a931cf5fcb43349eb5f44c14

a commit dated Dec. 2018.

* guix/quirks.scm (%bug-41214-patch)[accesses-guile-2.2-optimization-options?]:
Add second 'match' clause.
This commit is contained in:
Ludovic Courtès 2020-07-24 17:45:55 +02:00
parent cb3bae900f
commit e85d7ed609
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 24 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
guix/quirks.scm
View file

@ -139,18 +139,30 @@ (define %bug-41214-patch
(define (accesses-guile-2.2-optimization-options? source commit) (define (accesses-guile-2.2-optimization-options? source commit)
(catch 'system-error (catch 'system-error
(lambda () (lambda ()
(match (call-with-input-file (call-with-input-file (string-append source
(string-append source "/guix/build/compile.scm") "/guix/build/compile.scm")
read) (lambda (port)
(('define-module ('guix 'build 'compile) (match (read port)
_ ... (('define-module ('guix 'build 'compile)
#:use-module ('language 'tree-il 'optimize) _ ...
#:use-module ('language 'cps 'optimize) #:use-module ('language 'tree-il 'optimize)
#:export ('%default-optimizations #:use-module ('language 'cps 'optimize)
'%lightweight-optimizations #:export ('%default-optimizations
'compile-files)) '%lightweight-optimizations
#t) 'compile-files))
(_ #f))) #t)
(_
;; Before v1.0.0 (ca. Dec. 2018), the 'use-modules' form
;; would show up in a subsequent 'cond-expand' clause.
;; See <https://bugs.gnu.org/42519>.
(match (read port)
(('cond-expand
('guile-2.2 ('use-modules ('language 'tree-il 'optimize)
_ ...))
_ ...)
#t)
(_
#f)))))))
(const #f))) (const #f)))
(define (build-with-guile-2.2 source) (define (build-with-guile-2.2 source)