next up previous
Next: 9.5 Call/CCの定義 Up: 9 Continuation操作機構をもつSchemeインタプリタ Previous: 9.3 関数呼び出しの実行

9.4 組み込み基本関数の定義

Schemeの組み込み関数は，ContinuationとLispの実行用 組み込み関数への引数を受け取る手続きとして登録します． その手続きの中は，もともとの組み込み関数を呼び出した結果 を渡されてきたContinuationの引数として渡して実行する という定義になります． 

(defun init-scheme-proc (x)
  (if
      (atom x)
      (init-scheme-proc (list x x))
    (set-global-var!
     (car x)
     #'(lambda (cont &rest args)
         (funcall cont
                  (apply (cadr x) args))))))

generated through LaTeX2HTML. M.Inaba 平成18年5月6日