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

use string-prefix from racket/string

Browse Source
This commit is contained in:
Stephen Chang 2015-10-27 16:29:22 -04:00
parent b52f220dcc
commit 6f7edcc431
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tapl/typecheck.rkt
View File

@ -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)))