read-lineして行毎にprintしてみたらまともに出力した。 (define (cat . name) (define (cat2 port) (let ((line (read-line port))) (if (eof-object? line) #t (begin (print line) (cat2 port))))) (define (loop lis) (if (null? lis) #f (begin (cat2 (…

catを試しに作ったんだけど改行が出力されない。 もしかしてread-line使わないとだめ? (define (cat . name) (define (loop lis) (if (null? lis) #f (begin (print (read (open-input-file (car lis)))) (loop (cdr lis))))) (apply loop name)) (define (m…

マクロ自体の作り方は何となく分かったけど、使いこなすのはもう少し先だな。 次は継続だけど取り合えずここで一旦区切る。 ここ辺りで何かプログラムを書いていかないと身につかない。 何を作るかが問題だな。