From 62c63de7a29315d9a1890bac3a639244efbc2f7b Mon Sep 17 00:00:00 2001 From: Paulo Matos Date: Mon, 8 Oct 2018 13:50:46 +0200 Subject: [PATCH] Remove unused modpath->string --- racket/collects/racket/place.rkt | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/racket/collects/racket/place.rkt b/racket/collects/racket/place.rkt index 1a6bdb7762..a373e9af08 100644 --- a/racket/collects/racket/place.rkt +++ b/racket/collects/racket/place.rkt @@ -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)