このlispコードのラケット翻訳は何ですか？

Question

;; loads a board from the given file 

;; it expects the board to be in the format of a single S-expression: 

;; a list of nine lists, each containing 9 numbers 


    (defun get-board-from-file file 
     (let ((in (open file :if-does-not-exist nil))) 
     (when in (return-from get-board-from-file (read in))) 
     (when (not in) (format t "~%Unable to open file ~A" file)) 
     ) 
    ) 

これは、sudokuソルバーのソルトトンの一部です。

Answer 1

次のことを試してみてください、それが問題のLispコードの機能と同等ですが、ラケットで書かれた：

(define (get-board-from-file file) 
    (with-handlers ([exn:fail:filesystem? 
        (lambda (exn) (printf "~%Unable to open file ~A" file))]) 
    (call-with-input-file file 
     (lambda (in) (read in))))) 

上記のコードは、ファイルが存在しない場合に例外を処理し、それを確認しますファイルが読み込まれた後にポートが閉じられます。