You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
beautiful-racket/beautiful-racket-lib/br/test.rkt

20 lines
600 B
Racket

9 years ago
#lang racket/base
(require setup/getinfo racket/runtime-path)
(provide message run-source)
(define-runtime-path br-dir "../../beautiful-racket")
(define gi (get-info/full br-dir))
8 years ago
(define message
(format "You installed beautiful-racket~acorrectly."
(if gi
(format " v~a " (gi 'version))
" ")))
(require racket/port racket/system compiler/find-exe)
(define (run-source path)
(define racket-path (find-exe))
(define cmd-string (format "'~a' ~a" racket-path path))
(with-output-to-string (λ () (system cmd-string))))
9 years ago
(module+ main
(displayln message))