suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Conditional use of `module+'.

Browse Source 
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:
Eli Barzilay 2012-06-20 11:51:02 -04:00
parent 34c6c9966e
commit b5cc811daf
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/meta/props
View File

@ -601,7 +601,8 @@ path/s is either such a string or a list of them.
(cond [(eq? x '*) "~s"] (cond [(eq? x '*) "~s"]
[(symbol? x) (symbol->string x)] [(symbol? x) (symbol->string x)]
[(string? x) x] [(string? x) x]
[else (bad)])))]))) [else (bad)]))
" ")])))
;; -------------------- ;; --------------------
(Prop (Prop
'drdr:timeout 'drdr:timeout
@ -623,7 +624,11 @@ path/s is either such a string or a list of them.
(read-props) (read-props)
;; if we're running directly, do a verification ;; 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)
;; ---------------------------------------------------------------------------- ;; ----------------------------------------------------------------------------