[Bug-kawa] [bugs #10600] top level vars not always initialized

[Per Bothner]

This mail is an automated notification from the bugs tracker
 of the project: Kawa.

/**************************************************************************/
[bugs #10600] Latest Modifications:

Changes by: 
                Per Bothner <address@hidden>
'Date: 
                Fri 10/08/2004 at 05:51 (GMT)

            What     | Removed                   | Added
---------------------------------------------------------------------------
          Resolution | None                      | Fixed
         Assigned to | None                      | bothner
              Status | Open                      | Closed







/**************************************************************************/
[bugs #10600] Full Item Snapshot:

URL: <http://savannah.gnu.org/bugs/?func=detailitem&item_id=10600>
Project: Kawa
Submitted by: Chris Dean
On: Wed 10/06/2004 at 21:14

Category:  Scheme language
Severity:  5 - Average
Item Group:  Unexpected result
Resolution:  Fixed
Privacy:  Public
Assigned to:  bothner
Status:  Closed


Summary:  top level vars not always initialized

Original Submission:   When using a top-level variable required from another 
module, the
variable may not be initalized. See below for a repeat.



--- /dev/null Tue Sep 14 23:30:46 2004
+++ Foo.scm Wed Oct 6 13:39:20 2004
@@ -0,0 +1,6 @@
+(module-name <Foo>)
+(module-static #t)
+
+(require <Bar>)
+
+(format #t "--- ~S~%" bar-test)
--- /dev/null Tue Sep 14 23:30:46 2004
+++ Bar.scm Wed Oct 6 13:39:35 2004
@@ -0,0 +1,12 @@
+(module-name <Bar>)
+(module-static #t)
+
+(define bar-test '(bar test 1))
+
+;;; This works:
+;;
+;; (define bar-test (make-bars))
+;;
+;; (define (make-bars)
+;; '(bar test 2))
+ 





File Attachments
-------------------

-------------------------------------------------------
Date: Fri 10/08/2004 at 05:51  Name: Comp.patch  Size: 1.86KB   By: bothner
Patch.
http://savannah.gnu.org/bugs/download.php?item_id=10600&amp;item_file_id=1745






For detailed info, follow this link:
<http://savannah.gnu.org/bugs/?func=detailitem&item_id=10600>

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