Problem with this in object literals

[jcubic]

this in lambdas is environment object, but this is problematic because it don't work on objects literals:

lips> ((. (object :foo (lambda () this)) 'foo))
#<environment>
lips> (define x (object :foo (lambda () this)))
lips> (x.foo)
#<environment>
lips> (new (lambda () this))
#<instance>

so it only work on new operator. It would be nice if it works on any objects.

• Find a fix
• Unite tests functions that use this to get another function from env in this like for-each

[jcubic]

Even in class methods this is environment.

(let* ((a (class Object
                 (constructor (lambda (self)
                              (print this)
                              (set! self.x '(1 2 3))))
                 (run (lambda (self)
                        (print this)
                        (for-each print self.x)))))
       (b (new a)))
  (b.run))
#<environment>
#<environment>
1
2
3

Maybe solution would be to always use self and not document this at all.

this is werid:

lips> (new (lambda () (print this) (for-each print '(1 2 3))))
#<lambda>
1
2
3
#<instance>

for-each use this to get instance of map, but this is not a problem.

And this:

lips> (define x (object :foo (lambda () this)))
lips> (x.foo.call x)
&(:foo #<procedure>)

The problem may be that the function is unbind before call.