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

Remove unused modpath->string

Browse Source
This commit is contained in:
Paulo Matos 2018-10-08 13:50:46 +02:00 committed by Matthew Flatt
parent 04a2c54d56
commit 62c63de7a2
1 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
racket/collects/racket/place.rkt
View File

@ -167,17 +167,6 @@
(and (not out) outr)
(and (not err) errr)))]))
(define-for-syntax (modpath->string modpath)
(cond
[(equal? modpath #f)
(number->string (current-inexact-milliseconds))]
[else
(define name (resolved-module-path-name modpath))
(cond
[(symbol? name) (symbol->string name)]
[(path? name) (path->string name)])]))
(define-for-syntax place-body-counter 0)
(define-for-syntax (place-form _in _out _err _start-place-func stx orig-stx)