- 343 名前：デフォルトの名無しさん mailto:sage [04/03/16 03:32]
- >>342
letrec とか使えば、とりあえず自分を参照できるけど。
(let* ((foo (let ((val 1))
(define (self sym)
(cond ((eq? sym 'val) val)
((eq? sym 'self) self)))
self))
(bar (let ((super foo)
(val 2))
(define (self sym)
(cond ((eq? sym 'val) val)
((eq? sym 'self) self)
((eq? sym 'super) super)
(t (super sym))))
self)))
(list (bar 'val) ((bar 'self) 'val) ((bar 'super) 'val)))
=> (2 2 1)
とか、こういう話？
