Fix bug in implementation

This commit is contained in:
Lassi Kortela 2022-12-05 23:56:10 +02:00
parent e5a2e91c42
commit 7c191a0b06
1 changed files with 2 additions and 2 deletions

View File

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