From 7c191a0b0699754bad72183e57fbd39947913c9e Mon Sep 17 00:00:00 2001 From: Lassi Kortela Date: Mon, 5 Dec 2022 23:56:10 +0200 Subject: [PATCH] Fix bug in implementation --- code/symbols-as-strings.sld | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/symbols-as-strings.sld b/code/symbols-as-strings.sld index 1668507..f9ee5f8 100644 --- a/code/symbols-as-strings.sld +++ b/code/symbols-as-strings.sld @@ -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