Ticket #269: maybe-better-minimum-version-required-message.diff

File maybe-better-minimum-version-required-message.diff, 977 bytes (added by Mario Domenech Goulart, 12 years ago)

(Maybe) better "minimum version required" message

  • setup-api.scm

    diff --git a/setup-api.scm b/setup-api.scm
    index 4093aeb..cd4b8b3 100644
    a b  
    653653(define (upgrade-message ext msg #!optional version)
    654654  (error
    655655   (sprintf
    656     "the required extension `~s' ~a - please run~%~%  chicken-install ~a~a~%~%and repeat the current installation operation."
     656    "the currently installed extension `~s' ~a - please run~%~%  chicken-install ~a~a~%~%and repeat the current installation operation."
    657657    ext msg ext (if version (conc ":" version) "")) ) )
    658658
    659659(define (required-extension-version . args)
     
    670670                         ((and (version>=? version ver) (not (string=? (->string version) (->string ver))))
    671671                          (upgrade-message
    672672                           ext
    673                            (sprintf "is older than ~a, which is what this extension requires"
     673                           (sprintf "is older than ~a, which is the minimum version that this extension requires"
    674674                                    version)
    675675                           version) )
    676676                         (else (loop more)) ) )