Changeset 7211

Timestamp:

10/01/05 11:51:53 (3 years ago)

Author:

brentdax

Message:

Temporary fix to make ceil, floor, round work.

Files:

• src/perl6/Prelude.pm (modified) (3 diffs)

src/perl6/Prelude.pm

@@ -467 +467 @@
     }
     sub round($n) is primitive is safe {
-        round_gen($n, &do_round)
+        Num::round_gen($n, &Num::do_round)
     }
 
@@ -479 +479 @@
     }
     sub ceiling($n) is primitive is safe {
-        round_gen($n, &do_ceil)
+        Num::round_gen($n, &Num::do_ceil)
     }
     our &ceil ::= &ceiling;
@@ -487 +487 @@
     }
     sub floor($n) is primitive is safe {
-        round_gen($n, &do_floor)
+        Num::round_gen($n, &Num::do_floor)
     }
 }