From 19777a86ae14c73e8728a7523821009ab1957425 Mon Sep 17 00:00:00 2001 From: sforman Date: Thu, 10 Aug 2023 21:48:46 -0700 Subject: [PATCH] Use '->' in names of functions that convert values. --- implementations/scheme-chicken/joy.scm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/implementations/scheme-chicken/joy.scm b/implementations/scheme-chicken/joy.scm index 2ae03de..4850486 100644 --- a/implementations/scheme-chicken/joy.scm +++ b/implementations/scheme-chicken/joy.scm @@ -64,22 +64,22 @@ (define (parse tokens) (parse0 tokens '())) -(define (text-to-expression text) (parse (tokenize text))) +(define (text->expression text) (parse (tokenize text))) -(define (joy-term-to-string term) +(define (joy-term->string term) (cond ((boolean? term) (if term "true" "false")) ((number? term) (->string term)) - ((list? term) (conc "[" (joy-expression-to-string term) "]")) + ((list? term) (conc "[" (joy-expression->string term) "]")) (else term))) -(define (joy-expression-to-string expr) - (string-intersperse (map joy-term-to-string expr) " ")) +(define (joy-expression->string expr) + (string-intersperse (map joy-term->string expr) " ")) (define (doit text) (receive (stack dict) - (joy '() (text-to-expression text) '()) - (joy-expression-to-string stack))) + (joy '() (text->expression text) '()) + (joy-expression->string stack))) (display (doit "ab cd [[ ]] 23 4 - [true] false")) (newline)