Commits

Thomas Chust committed 7a0bdbc Draft

Ensure the pseudo root used in path derivations is always a unix path

Comments (0)

Files changed (1)

       (or/c string? #f) field-descriptor-proto?
       any/c)])
 
+(define unix-root
+  (string->some-system-path "/" 'unix))
+
 (define (generate-racket req)
   (define types
     (make-hash))
                       (let-values ([(base name dir?) (split-path racket-file)])
                         (cond
                           [dir?
-                           (path->complete-path racket-file "/")]
+                           (path->complete-path racket-file unix-root)]
                           [(memq base '(relative #f))
-                           "/"]
+                           unix-root]
                           [else
-                           (path->complete-path base "/")]))
+                           (path->complete-path base unix-root)]))
                       (path->complete-path
                        (path-replace-suffix (string->some-system-path dep 'unix) ".rkt")
-                       "/"))))))
+                       unix-root))))))
              (newline)
              (for-each pretty-print (translate-types types proto))
              (newline)
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.