スキーム拡張としてファイルコンテンツを提供するには？

Question

私は

(define (compiler exp) 
    (define (printer line) (display line) (newline)) 
    (init-generators) 
    (let ((res (compile (append bootstrap (list exp)) function-res '()))) 
    (map printer c-string-list) 
    (display bootstrap-c-code) 
    (add-c-function 'startup '(env) res) 
    (map (lambda (function) (map printer function) (newline)) c-function-list) 
    'ok)) 

を持っていると私は

(define (compile file-name) 
    (compiler (load file-name))) 

を必要とする。しかし、それはこのように動作しません。それは直接実行しています。表現としてどのように読み込むことができますか？ （exp）

Answer 1

お探しですか？使用している実装の詳細がわからないと、私はr5rsのreadのドキュメントを指すことができます。ファイル名からポートを取得し、そのポートから読み取るには、open-input-fileを使用します。

Answer 2

file-nameの内容は何ですか？それは式の場合は、loadはfile-nameが(+ 1 1)が含まれている場合、(load filename)は一方2.

を返します。例えば、それを実行しますfile-nameはシンボルのリストが含まれている場合、彼らがそうであるように、彼らは、たとえば、読み込まれますfile-nameには'(+ 1 1)が含まれています（冒頭の引用符に注意してください）。(load filename)は(+ 1 1)を返します。これは、式としてロードする必要があると言います。

あなたは、ファイル内のいくつかの表現をロードする必要が引用符でそれらを囲むと、ファイルに始める場合：あなたはloadとは反対に、read機能のために

'(begin 
    <your code here> 
)