|
|
@ -3,6 +3,10 @@
|
|
|
|
(provide message)
|
|
|
|
(provide message)
|
|
|
|
(define-runtime-path br-dir "../../beautiful-racket")
|
|
|
|
(define-runtime-path br-dir "../../beautiful-racket")
|
|
|
|
(define gi (get-info/full br-dir))
|
|
|
|
(define gi (get-info/full br-dir))
|
|
|
|
(define message (format "You installed beautiful-racket v~a correctly." (gi 'version)))
|
|
|
|
(define message
|
|
|
|
|
|
|
|
(format "You installed beautiful-racket~acorrectly."
|
|
|
|
|
|
|
|
(if gi
|
|
|
|
|
|
|
|
(format " v~a " (gi 'version))
|
|
|
|
|
|
|
|
" ")))
|
|
|
|
(module+ main
|
|
|
|
(module+ main
|
|
|
|
(displayln message))
|
|
|
|
(displayln message))
|
|
|
|