pull/10/head
Matthew Butterick 8 years ago
parent bb4dce853c
commit 2f1a2b4520

@ -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))

Loading…
Cancel
Save