From 9c51370e51f979c27decd628214dc85d9b67e423 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 5 Sep 2015 17:59:44 -0600 Subject: [PATCH] repair `extract-base-filename/ext` and `extract-base-filename/o` --- racket/collects/dynext/file.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/racket/collects/dynext/file.rkt b/racket/collects/dynext/file.rkt index 31a2536ea8..014e52f62f 100644 --- a/racket/collects/dynext/file.rkt +++ b/racket/collects/dynext/file.rkt @@ -80,9 +80,9 @@ (define (extract-base-filename/o s [program #f]) (extract 'extract-base-filename/o s program - (case (system-type) - [(unix beos macos macosx) #"o"] - [(windows) #"obj"]) + (extract-rx (case (system-type) + [(unix beos macos macosx) #"o"] + [(windows) #"obj"])) "compiled object" (extract-suffix append-object-suffix))) @@ -90,6 +90,6 @@ (extract 'extract-base-filename/ext s program - (regexp-quote (subbytes (system-type 'so-suffix) 1) #f) + (extract-rx (regexp-quote (subbytes (system-type 'so-suffix) 1) #f)) "Racket extension" (extract-suffix append-extension-suffix)))