DrRacket：應用程序：不是程序錯誤在R5RS語言

這是我第一天在Dr.Racket和R5RS語言。我正在嘗試修改下面我分享的現有代碼。DrRacket：應用程序：不是程序錯誤在R5RS語言

;; This is an internal helper procedure. 
;; - it gets the method out of "in-object" 
;; - it invokes the method, passing "for-object" as the 
;; "self" for the method.      
;;     
(define (apply-method in-object for-object message args) 
    (let ((method (get-method message in-object))) 
    (cond ((method? method)     
      (apply method for-object args)) 
      ((eq? in-object for-object) 
     (display method)     
      (error "No method for" message 'in 
      (safe-ask 'UNNAMED-OBJECT 
       in-object 'NAME))) 
      (else (error "Can't delegate" message 
         "from" (safe-ask 'UNNAMED-OBJECT 
        for-object 'NAME) 
       "to" (safe-ask 'UNNAMED-OBJECT 
         in-object 'NAME)))))) 


(define (get-method message object) ; single-inheritance 
    (object message))

這段代碼是相當大的項目的一部分。因此，我只分享相關部分。在項目內部，當這個apply-method程序被調用時。以let表達式開頭的行中出現錯誤。錯誤信息如下：

objsys.scm：53：2：application：not a procedure;預期過程可以應用到給定的參數
：＃F
參數...：

所以，我不知道是否有任何人誰可以幫我解決問題。編輯

我懷疑有像上述誤用或不對齊paranthesis一個語法錯誤，但我無法找到導致錯誤的確切地點。

來源

2016-12-04 zwlayer

看起來問題更多的是使用'apply-method'而不是它的實現。在某處，它被應用了'＃對象'。 – molbdnilo

當您使用apply-method時，in-object的值爲#f。當apply-method試圖做(get-method message in-object)get-method然後應用(in-object message)即變成(#f 'some-unknown-message)而且由於#f是不過程球拍有問題，將它視爲一個以錯誤結束了，告訴你在應用過程中給定值#f不是一個過程。

由於您使用的是球拍，也許您應該啓動調試器並在get-method上放置一個斷點，您就會看到它。請注意，Scheme和Racket語言對於所有綁定只有一個名稱空間，所以您不能擁有同名的過程和變量，因爲命名過程將佔用相同的變量。

來源

2016-12-04 21:51:15 Sylwester

DrRacket：應用程序：不是程序錯誤在R5RS語言

回答

相關問題