www

commit 6f7edcc43172d53bf58376e619b08c1f1d3662ec
parent b52f220dccea3adff4778a722c63869c82af4f45
Author: Stephen Chang <stchang@ccs.neu.edu>
Date:   Tue, 27 Oct 2015 16:29:22 -0400

use string-prefix from racket/string

Diffstat:
M
tapl/typecheck.rkt
 | 
6
+++---

1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/tapl/typecheck.rkt b/tapl/typecheck.rkt
@@ -1,6 +1,6 @@
 #lang racket/base
 (require
-  (for-syntax (except-in racket extends) (only-in srfi/13 string-prefix?)
+  (for-syntax (except-in racket extends)
               syntax/parse racket/syntax syntax/stx racket/stxparam
               "stx-utils.rkt"
               syntax/parse/debug)
@@ -99,9 +99,9 @@
                           [excluded (map symbol->string (syntax->datum #'(x ... new ...)))])
                      (λ (name)
                        (define out-name
-                         (or (and (string-prefix? pre-str name)
+                         (or (and (string-prefix? name pre-str)
                                   (drop-pre name))
-                             (and (string-prefix? int-pre-str name)
+                             (and (string-prefix? name int-pre-str)
                                   (drop-int-pre name))
                              name))
                        (and (not (member out-name excluded)) out-name)))