Fix bug in implementation
This commit is contained in:
parent
e5a2e91c42
commit
7c191a0b06
|
@ -32,10 +32,10 @@
|
||||||
(symbol->string symbol2)))
|
(symbol->string symbol2)))
|
||||||
|
|
||||||
(define (symbol-prefix? prefix symbol)
|
(define (symbol-prefix? prefix symbol)
|
||||||
(string-prefix? prefix symbol))
|
(string-prefix? prefix (symbol->string symbol)))
|
||||||
|
|
||||||
(define (symbol-suffix? suffix symbol)
|
(define (symbol-suffix? suffix symbol)
|
||||||
(string-suffix? suffix symbol))
|
(string-suffix? suffix (symbol->string symbol)))
|
||||||
|
|
||||||
(define symbol-middle
|
(define symbol-middle
|
||||||
(case-lambda
|
(case-lambda
|
||||||
|
|
Loading…
Reference in New Issue