문자열 대체 * 작동하지

Question

내가 노력하고 다음 코드 :

그것은 다음과 같은 출력으로 작동

(require-extension srfi-13) 
(require-extension regex) 
(print (string-substitute* "This is a test" '(("a test" . "NO TESTING ZONE")))) 

:

This is NO TESTING ZONE 

그러나 다음은 작동하지 않습니다

(print (string-substitute* "This is a test" '(("a test" . (string-append "NO " "TESTING"))))) 

는 다음 오류 :

Error: (string-substitute) bad argument type - not a string: (string-append "NO " "TESTING") 

비록, 출력이 실제로 문자열임을 보여줍니다 다음

(print (string? (string-append "NO " "TESTING"))) 
#t 

어디에 문제가 어떻게이는 해결 될 수있다?

Answer 1

이것은 string-substitute*과 아무 관련이 없습니다.

> '(("a test" . (string-append "NO " "TESTING"))) 
'(("a test" string-append "NO " "TESTING")) 

사용 quasiquote : 당신은 목록을 인용하고

는, 그래서 (string-append "NO " "TESTING")은 평가되지 않습니다

`(("a test" . ,(string-append "NO " "TESTING") 

또는 전혀 인용하지 않습니다

(list (cons "a test" (string-append "NO " "TESTING"))