檢測方案或球拍中功能的主叫方

Question

在方案或球拍中是否可以檢測功能的主叫方？

例如，我可以寫一個函數來測試一個列表是原子的列表如下：

(define atom? (lambda (x) (and (not (pair? x)) (not (empty? x))))) 

(define lat? (lambda (l) 
       (define latt? 
       (lambda (l) 
        (cond 
        ((null? l) #t) 
        ((atom? (car l)) (latt? (cdr l))) 
        (else #f)))) 
       (if (null? l) #f (latt? l)))) 

但代替上述情況，有像「被叫由」做的功能這樣的事情：

(define lat? 
    (lambda (l) 
    (cond 
     ((and (null? l) (called-by "lat?")) #t) 
     ((atom? (car l)) (lat? (cdr l))) 
     (else #f)))) 

Answer 1

通常的做法是向函數添加一些參數，或者像通過內部定義一樣循環。除此之外，沒有可靠的方法來找出函數的調用者。

但在你的情況下，它似乎是一個很好的缺乏功能 - 使用它的上述問題是非常糟糕的。內部幫手版本沒有問題。 （這也是非常相似，任何其他語言。）

最後，我期望(lat? null)回到#t，因爲它是只具有原子作爲元素的列表。