[Bug-kawa] [bugs #11578] fluid-let in compiled modules

[Dean Ferreyra]

This is an automated notification sent by Savannah.
It relates to:
                bugs #11578, project Kawa

==============================================================================
 OVERVIEW of bugs #11578:
==============================================================================

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

                 Summary: fluid-let in compiled modules
                 Project: Kawa
            Submitted by: dferreyra
            Submitted on: Thu 01/13/2005 at 01:02
                Category: Code generation
                Severity: 5 - Average
              Item Group: Unexpected result
                  Status: None
                 Privacy: Public
             Assigned to: None
             Open/Closed: Open

    _______________________________________________________


It seems like the dynamic binding of fluid-let is not working quite right in
compiled modules.  Here's the basic code:



(define *VAR* 'A)

(define (get-var) *VAR*)

(define (check-fluid-let sym)

  (fluid-let ((*VAR* sym))

    (get-var)))



When called from the interpreter, (check-fluid-let 'Z) returns 'Z.  From
compiled code, this same call returns 'A.



Attached is a patch to the testsuite that demonstrates the bug.



Fluid-let is used in quite a few places in Merced Systems software---I think
this is the last issue that's keeping us from using the latest greatest Kawa
changes.







    _______________________________________________________

File Attachments:


-------------------------------------------------------
Date: Thu 01/13/2005 at 01:02  Name: fluid-let-test.patch  Size: 1.29KB   By:
dferreyra
Patch to add fluid-let test to testsuite
<http://savannah.gnu.org/bugs/download.php?item_id=11578&item_file_id=2058>

==============================================================================

This item URL is:
  <http://savannah.gnu.org/bugs/?func=detailitem&item_id=11578>

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