[Bug-kawa] [bug #6302] Internal define causes class cast exception

[nobody]

=================== BUG #6302: FULL BUG SNAPSHOT ===================
http://savannah.gnu.org/bugs/?func=detailbug&bug_id=6302&group_id=145

Submitted by: ctdean                  Project: Kawa                         
Submitted on: Sat 11/01/2003 at 16:21
Category:  Code generation            Severity:  5 - Major                  
Bug Group:  Run-time exception        Resolution:  None                     
Assigned to:  None                    Status:  Open                         

Summary:  Internal define causes class cast exception

Original Submission:  After compiling this (admittedly strange) code, we get a 
class cast excpetion when run.  This code occurs in some autogenerated ares and 
is difficult to remove.



(define (foo)

  (format "~A" (define (bar) 1)))



(format #t "result is ~S~%" (foo2))





This gives:



  ((Foo) this).id$bar = (Symbol) (gnu.mapping.Procedure) bar$Fn1;



The cast to (Symbol) is not the right bytecode to generate.





No Followups Have Been Posted


CC list is empty


No files currently attached


For detailed info, follow this link:
http://savannah.gnu.org/bugs/?func=detailbug&bug_id=6302&group_id=145

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