Fix bug in implementation

master
Lassi Kortela 4 months ago
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…
Cancel
Save