[Rt-commit] [svn] r1013 - in mzscheme: . Language-MzScheme Language-MzScheme/lib/Language Language-MzScheme/t/scripts

[autrijus at pallas.eruditorum.org]

Author: autrijus
Date: Mon Jun  7 02:36:34 2004
New Revision: 1013

Modified:
   mzscheme/   (props changed)
   mzscheme/Language-MzScheme/lib/Language/MzScheme.pm
   mzscheme/Language-MzScheme/mzscheme.i
   mzscheme/Language-MzScheme/t/scripts/three.pl
Log:
 ----------------------------------------------------------------------
 r5444 at not:  autrijus | 2004-06-07T06:36:49.204292Z
 
 * clean-up the calling convention to init once only on top of module.
 ----------------------------------------------------------------------


Modified: mzscheme/Language-MzScheme/lib/Language/MzScheme.pm
==============================================================================
--- mzscheme/Language-MzScheme/lib/Language/MzScheme.pm	(original)
+++ mzscheme/Language-MzScheme/lib/Language/MzScheme.pm	Mon Jun  7 02:36:34 2004
@@ -36,6 +36,8 @@
 
 =cut
 
+mzscheme_init();
+
 1;
 
 =head1 SEE ALSO

Modified: mzscheme/Language-MzScheme/mzscheme.i
==============================================================================
--- mzscheme/Language-MzScheme/mzscheme.i	(original)
+++ mzscheme/Language-MzScheme/mzscheme.i	Mon Jun  7 02:36:34 2004
@@ -1,11 +1,17 @@
 %module mzscheme
 %{
 #include "scheme.h"
+
+void mzscheme_init () {
+    int dummy;
+    scheme_set_stack_base(&dummy, 0);
+}
+
 %}
 
 Scheme_Config   *scheme_config;
 Scheme_Env      *scheme_basic_env(void);
 Scheme_Object   *scheme_get_param(Scheme_Config *c, const int pos);
-void scheme_set_stack_base(void *base, int no_auto_statics);
+void mzscheme_init ();
 
 #include "scheme.hi"

Modified: mzscheme/Language-MzScheme/t/scripts/three.pl
==============================================================================
--- mzscheme/Language-MzScheme/t/scripts/three.pl	(original)
+++ mzscheme/Language-MzScheme/t/scripts/three.pl	Mon Jun  7 02:36:34 2004
@@ -3,13 +3,8 @@
 use strict;
 use Language::MzScheme;
 
-scheme_set_stack_base(undef, 1);
 my $env = scheme_basic_env();
-scheme_set_stack_base(undef, 1);
 my $out = scheme_get_param($scheme_config, $MZCONFIG_OUTPUT_PORT);
-scheme_set_stack_base(undef, 1);
 my $val = scheme_eval_string('(+ 1 2)', $env);
-scheme_set_stack_base(undef, 1);
 scheme_display($val, $out);
-scheme_set_stack_base(undef, 1);
 scheme_display(scheme_make_char("\n"), $out);