[Bug-kawa] [bug #16593] Prefix-colon syntax and name mangling problem

[Dean Ferreyra]

URL:
  <http://savannah.gnu.org/bugs/?func=detailitem&item_id=16593>

                 Summary: Prefix-colon syntax and name mangling problem
                 Project: Kawa
            Submitted by: dferreyra
            Submitted on: Monday 05/15/2006 at 12:20
                Category: None
                Severity: 3 - Normal
              Item Group: Run-time exception
                  Status: None
                 Privacy: Public
             Assigned to: None
             Open/Closed: Open

    _______________________________________________________

Details:

It looks like in some cases the prefix-colon syntax is not handling name
mangling correctly.  Here's an example:

  (module-static #t)
  
  (define-simple-class <A> ()
    ((an-identity-meth name)
     name)
    )
  
  (define a (<A>))
  
  (define (test1)
    (a:anIdentityMeth 'foo))
  
  (define (test2)
    (a:an-identity-meth 'foo))
  
  (display (format "test1: ~A~%" (test1)))
  (display (format "test2: ~A~%" (test2)))

If you compile and run this, the call to test1 succeeds, but the call to
test2 generates an exception:

  java kawa.repl --warn-undefined-variable --module-static-run --main -C
types.scm
  (compiling types.scm)
  java types
  Exception in thread "main" java.lang.ExceptionInInitializerError
  Caused by: java.lang.RuntimeException: no part 'an-identity-meth' in
address@hidden m:null
          at
gnu.kawa.functions.GetNamedPart.getNamedPart(GetNamedPart.java:284)
          at gnu.kawa.functions.GetNamedPart.apply2(GetNamedPart.java:216)
          at types.test2(types.scm:14)
          at types.run(types.scm:17)
          at gnu.expr.ModuleBody.run(ModuleBody.java:44)
          at gnu.expr.ModuleBody.run(ModuleBody.java:32)
          at types.<clinit>(types.scm)
  test1: foo









    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?func=detailitem&item_id=16593>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/