File tree Expand file tree Collapse file tree 1 file changed +5
-5
lines changed
Expand file tree Collapse file tree 1 file changed +5
-5
lines changed Original file line number Diff line number Diff line change 4545(define (get-z3-url)
4646 (define site "https://github.com/Z3Prover/z3/releases/download " )
4747 (define version "z3-4.8.8 " )
48- (define os
48+ (define-values (os exe)
4949 (match (list (system-type) (system-type 'word ))
50- ['(unix 64 ) "x64-ubuntu-16.04 " ]
51- [`(macosx ,_ ) "x64-osx-10.14.6 " ]
52- ['(windows 64 ) "x64-win " ]
50+ ['(unix 64 ) (values "x64-ubuntu-16.04 " " z3 " ) ]
51+ [`(macosx ,_ ) (values "x64-osx-10.14.6 " " z3 " ) ]
52+ ['(windows 64 ) (values "x64-win " " z3.exe " ) ]
5353 [any (raise-user-error 'get-z3-url "Unknown system type '~a' " any )]))
5454 (define name (format "~a-~a " version os))
5555 (values
5656 (format "~a/~a/~a.zip " site version name)
57- (format "~a/bin/z3 " name)))
57+ (format "~a/bin/~a " name exe )))
5858
5959
6060;; A copy of net/url's get-pure-port/headers, except with the Location header
You can’t perform that action at this time.
0 commit comments