Gaucheクックブックで文字列の反復を取り上げていた。文字列の反復演算子 (x演算子) - Gaucheクックブック折角だからこれも syntax-case 版を書いてみることにした。 (define-syntax x (lambda(x) (syntax-case x () ((k str n) (let ((str (syntax->datum #…