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

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