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