develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r36102 - trunk/languages/perl6/src/classes

From:
particle
Date:
January 28, 2009 10:37
Subject:
[svn:parrot] r36102 - trunk/languages/perl6/src/classes
Message ID:
20090128183702.F3CA3CB9AE@x12.develooper.com
Author: particle
Date: Wed Jan 28 10:37:02 2009
New Revision: 36102

Modified:
   trunk/languages/perl6/src/classes/Num.pir

Log:
[rakudo] NaN ~~ NaN is true now

Modified: trunk/languages/perl6/src/classes/Num.pir
==============================================================================
--- trunk/languages/perl6/src/classes/Num.pir	(original)
+++ trunk/languages/perl6/src/classes/Num.pir	Wed Jan 28 10:37:02 2009
@@ -52,11 +52,11 @@
 .sub 'ACCEPTS' :method
     .param num topic
     $S0 = self
-    if $S0 == 'nan' goto test_nan
+    if $S0 == 'NaN' goto test_nan
     .tailcall 'infix:=='(topic, self)
   test_nan:
     $S0 = topic
-    $I0 = iseq $S0, 'nan'
+    $I0 = iseq $S0, 'NaN'
     .tailcall 'prefix:?'($I0)
 .end
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About