が不適切に私は次のスキーム機能持つスキーム機能で

Question

を閉じ括弧を置い

(x (nth args 1) (y (nth args 2)())) 

を問題は、私はそれを返す必要があり、次のとおりです。

((x (nth args1)) (y (nth args 2))()) 

端に-the 2つの閉じ括弧は、（n番目の文の後にあるべきである。

これを正しく動作させるにはどうすればいいですか？

がget-アイバーズ呼び出し元：

(define gen-classes 
    (λ (classes) 
    (cond ((null? classes) '()) 
      (else 
      (let* ((class (car classes))) 
      (eval 
       `(define ,(cadr class) 
       (λ (args) 
        (let (
          ,(get-ivars (cdr (cadddr class)) 1) 
         ) 
        (eval 
         (let* ,(cdar (cddddr class)) 
         (λ (method . args) 
          ,(get-methods (cdadr (cddddr class))) 
    )))))))))))) 

Answer 1

あなたelse句の二(list ...)はあなたを台無しに何されていること。これは、それぞれの連続した呼び出しを深く深く入れ子にしています。再帰は自然にリストを作成します。それをもう一度ラップする必要はありません。

試してみてください。

(define get-ivars 
    (λ (ivars num) 
    (if (null? ivars) '() 
     (cons (list (car ivars) `(nth args ,num)) 
      (get-ivars (cdr ivars) (+ num 1)))))) 

get-ivars発信者コードについては、get-ivarsに引用符で囲まれていないコールを囲む括弧は、あなたがコメントで言及トラブルを与えているものです。彼らと、このコード：

`(define ClassName 
    (lambda (args) 
    (let (,(get-ivars '(iVar1 iVar2 iVar3) 1)) 
     ;; your method-getting code 
     ))) 

はあなたにこの与える：あなたが見ることができるよう、

(define ClassName 
    (lambda (args) 
    (let (((iVar1 (nth args 1)) 
      (iVar2 (nth args 2)) 
      (iVar3 (nth args 3)))) 
     ;; method-getting code 
    ))) 

を、あなたはletの中の割り当てを囲む括弧の余分なセットできます。

だから、あなたはこれをしたい：

get-ivars

`(define ClassName 
    (lambda (args) 
    (let ,(get-ivars '(iVar1 iVar2 iVar3) 1) 
     ;; your method-getting code 
    ))) 

のように（あなたがラップたりする必要はありませんので、あなたは、 letでの割り当てのために欲しいものを正確にあるリストのリストを、返却されます私は以前それをスプライスしていた）。独自の引用符を使用すると、結果は次のようになります。

(define ClassName 
    (lambda (args) 
    (let ((iVar1 (nth args 1)) 
      (iVar2 (nth args 2)) 
      (iVar3 (nth args 3))) 
     ;; method-getting code 
    ))) 

これはすべきことです。

ちなみに、私はこのときに遊んでいたときにevalを離れると便利です。結果を視覚的に検査して構文が正常であることを確認することができます。

Answer 2

を私はこれを試していないが、私はこれが仕事だと思う：

(define (get-ivars ivars num) 
    (if (null? ivars) 
    '() 
    (list (list (car ivars) `(nth args ,num)) 
      (get-ivars (cdr ivars) (1+ num)))))