Conditional use of `module+'.
This fixes drdr, which is using a pre-submodules version of racket. There was also a use of one-argument `string-join' that is fixed that has been there for a while but drdr uses the api directly.
This commit is contained in:
parent
34c6c9966e
commit
b5cc811daf
|
@ -601,7 +601,8 @@ path/s is either such a string or a list of them.
|
|||
(cond [(eq? x '*) "~s"]
|
||||
[(symbol? x) (symbol->string x)]
|
||||
[(string? x) x]
|
||||
[else (bad)])))])))
|
||||
[else (bad)]))
|
||||
" ")])))
|
||||
;; --------------------
|
||||
(Prop
|
||||
'drdr:timeout
|
||||
|
@ -623,7 +624,11 @@ path/s is either such a string or a list of them.
|
|||
(read-props)
|
||||
|
||||
;; if we're running directly, do a verification
|
||||
(module+ main (verify))
|
||||
;; Use this only when supported
|
||||
(require (for-syntax racket/base version/utils))
|
||||
(define-syntax (add-main stx)
|
||||
(if ((version) . version<=? . "5.2.1") #'(begin) #'(module+ main (verify))))
|
||||
(add-main)
|
||||
|
||||
;; ----------------------------------------------------------------------------
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user