[Bug-kawa] [bug #15725] anon classes defined by (object ...) not being written

[tk]

Follow-up Comment #1, bug #15725 (project kawa):


original description of bug wasn't accurate. problem is that
when the (object ...) form appears in a source file, the
classes are named differently in the compiled archive, in 
a way that the kawa.load.loadCompiled doesn't expect.



$ cat bug.scm
(define (foo)
  #f)

#|
(define (foo2)
  (object ()
   ((fun) <int>
    (+ 1 2))))
|#

$ rlwrap java -jar kawa-1.8.1alpha.jar 
#|kawa:1|# (compile-file "bug.scm" "bug.zip")


$ unzip -t bug.zip
Archive:  bug.zip
    testing: atFileLevel.class        OK
No errors detected in compressed data of bug.zip.




$ cat bug.scm
(define (foo)
  #f)

(define (foo2)
  (object ()
   ((fun) <int>
    (+ 1 2))))


#|kawa:2|# 
#|kawa:3|# (compile-file "bug.scm" "bug.zip")
#|kawa:4|# 
[3]+  Stopped                 rlwrap java -jar kawa-1.8.1alpha.jar
$ unzip -t bug.zip
Archive:  bug.zip
    testing: bug$0.class              OK
    testing: bug.class                OK
No errors detected in compressed data of bug.zip.


    _______________________________________________________

Reply to this item at:

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

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