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

[autrijus at pallas.eruditorum.org]

Author: autrijus
Date: Mon Jun 14 17:08:34 2004
New Revision: 1069

Modified:
   mzscheme/   (props changed)
   mzscheme/Language-MzScheme/SIGNATURE
   mzscheme/Language-MzScheme/lib/Language/MzScheme/Env.pm
   mzscheme/Language-MzScheme/t/2-context.t
Log:
 ----------------------------------------------------------------------
 r5593 at not:  autrijus | 2004-06-13T18:54:22.407218Z
 
 * silence off warnings
 ----------------------------------------------------------------------


Modified: mzscheme/Language-MzScheme/SIGNATURE
==============================================================================
--- mzscheme/Language-MzScheme/SIGNATURE	(original)
+++ mzscheme/Language-MzScheme/SIGNATURE	Mon Jun 14 17:08:34 2004
@@ -30,7 +30,7 @@
 SHA1 aff9341a15c04faec47089851e43d9d4061337e7 inc/Module/Install/Win32.pm
 SHA1 8e0d347ca21bc18b380d9d1aa5910b8d078a76b7 inc/Module/Install/WriteAll.pm
 SHA1 ed4e4d5bfe074732c8381471f29c31d3798739aa lib/Language/MzScheme.pm
-SHA1 c2fb92030184f9b4c17c453569c7c1252e5947c8 lib/Language/MzScheme/Env.pm
+SHA1 fc8ee4a89d505614b94488b3ccdc4f0743d9612c lib/Language/MzScheme/Env.pm
 SHA1 7ef0fc9e5a441b3b2b6d0aa920192282c223e479 lib/Language/MzScheme/Object.pm
 SHA1 7602d4a0c5f3c4eeefa676b6dcfb1b922f9a3751 mzscheme.c
 SHA1 17aa75bc0034488c686c3d370f9652b31925725b mzscheme.h
@@ -38,7 +38,7 @@
 SHA1 560aa6cebebd5a651eaf2bee5121fefc1c3a63e6 script/mzperl
 SHA1 63c7ea0cfdd7643aa113c260eec9c9bf0a6ee8a0 t/0-signature.t
 SHA1 2d94109bd6ba3092b58c62d18c721cda2af0c7af t/1-basic.t
-SHA1 79f1e1568dd6043d8746f5e91bec7922ccec94ea t/2-context.t
+SHA1 e44b34fb9594096289a38bae74d4ed6330546f6a t/2-context.t
 SHA1 86e4a8ba68f2b1ffc21a9f3a9a3f1f51beb69835 t/3-object.t
 SHA1 d5f24b9183df579f97f3a86d3a25bdcdad49180f t/4-data.t
 SHA1 42b23053d7905258079a5cbd43157de6c1dffb45 t/5-perl.t
@@ -46,7 +46,7 @@
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v1.2.3 (FreeBSD)
 
-iD8DBQFAzKHutLPdNzw1AaARAktbAJ9aN03qhuUSFm/v+ic4QxcvF2rmuACfWMFO
-yUdontVm+6iu/9knHTgGKUQ=
-=QKBx
+iD8DBQFAzKLStLPdNzw1AaARAsA7AJ42pbpTOYsMlhxCij+VUkz4rqtrGgCeLoTA
+NNnZ7SqAGzPhKf2OkUvGNL4=
+=YIzY
 -----END PGP SIGNATURE-----

Modified: mzscheme/Language-MzScheme/lib/Language/MzScheme/Env.pm
==============================================================================
--- mzscheme/Language-MzScheme/lib/Language/MzScheme/Env.pm	(original)
+++ mzscheme/Language-MzScheme/lib/Language/MzScheme/Env.pm	Mon Jun 14 17:08:34 2004
@@ -82,7 +82,7 @@
         foreach my $sym (sort keys %{"$name\::"}) {
             my $code = *{${"$name\::"}{$sym}}{CODE} or next;
             $sym =~ tr/_/-/;
-            $self->define("$pkg\::$sym", $code);
+            $self->define("$name\::$sym", $code);
         }
         $code = $name;
     }

Modified: mzscheme/Language-MzScheme/t/2-context.t
==============================================================================
--- mzscheme/Language-MzScheme/t/2-context.t	(original)
+++ mzscheme/Language-MzScheme/t/2-context.t	Mon Jun 14 17:08:34 2004
@@ -79,6 +79,7 @@
 $Data::Dumper::Terse = 1;
 $Data::Dumper::Indent = 0;
 $Data::Dumper::Quotekeys = 0;
+local $SIG{__WARN__} = sub { return }; # for nonnumeric casting
 while (($sub, $plan) = splice(@$plans, 0, 2)) {
     while (my ($input, $output) = splice(@$plan, 0, 2)) {
         foreach my $context (sort keys %$output) {