dot expansion

[Keisuke Nishida]

Hello,

I really would like to introduce the following expansion:

  foo.bar.baz  ->  (baz (bar foo))

So that I can write programs as follows:

  guile> (define-class <foo> ()
           (bar #:accessor bar))
  guile> (define foo (make <foo>))
  guile> (set! foo.bar 1)
  guile> foo.bar
  1
  guile> (set! foo.bar (lambda (x) (* x x)))
  guile> (foo.bar 2)
  4

This REALLY simplifies programming with GOOPS.

What is the best way to do this?  An easy way is to add a module
option and control the reader or loader appropriately.

  (define-module (foo)
    :expand-dot)

May I apply this little dirty hack?

Kei