方案实现:tinyscheme
这是我的尝试:
(with-output-to-file "biophilia.c"
(lambda (output-port)
(write "Hello" output-port)))
Ceates biophilia.c 具有以下内容:
错误:(:26)没有足够的参数
我在这里做错了什么?如何修复它?
(define (with-output-to-file s p)
(let ((outport (open-output-file s)))
(if (eq? outport #f)
#f
(let ((prev-outport (current-output-port)))
(set-output-port outport)
(let ((res (p)))
(close-output-port outport)
(set-output-port prev-outport)
res)))))