Ticket #77: chicken-install.diff
File chicken-install.diff, 1.1 KB (added by , 14 years ago) |
---|
-
setup-api.scm
655 655 (when (version>=? v (chicken-version) ) 656 656 (error (sprintf "CHICKEN version ~a or higher is required" v)) ) ) 657 657 658 (define (upgrade-message ext msg )658 (define (upgrade-message ext msg #!optional version) 659 659 (error 660 660 (sprintf 661 "the required extension `~s' ~a - please run~%~% chicken-install ~a~ %~%and repeat the current installation operation."662 ext msg ext ) ) )661 "the required extension `~s' ~a - please run~%~% chicken-install ~a~a~%~%and repeat the current installation operation." 662 ext msg ext (if version (string-append ":" version) "")) ) ) 663 663 664 664 (define (required-extension-version . args) 665 665 (let loop ((args args)) … … 676 676 (upgrade-message 677 677 ext 678 678 (sprintf "is older than ~a, which is what this extension requires" 679 version) ) ) 679 version) 680 version) ) 680 681 (else (loop more)) ) ) 681 682 (upgrade-message ext "is not installed") ) ) ) 682 683 (else