Skip to content

Instantly share code, notes, and snippets.

@rakudo

rakudo/gist:184809

Created September 10, 2009 20:48
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save rakudo/184809 to your computer and use it in GitHub Desktop.
Save rakudo/184809 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
pmichaud@plum:~/rakudo$ git diff
diff --git a/src/classes/Num.pir b/src/classes/Num.pir
index c282102..cdcc389 100644
--- a/src/classes/Num.pir
+++ b/src/classes/Num.pir
@@ -25,6 +25,12 @@ Num - Perl 6 numbers
.const 'Sub' $P0 = "Num::ACCEPTS"
$P1 = typeof numproto
$P1.'add_method'('ACCEPTS', $P0)
+
+ # Map Parrot Float to Rakudo Num
+ $P0 = getinterp
+ $P1 = get_class ['Float']
+ $P2 = get_class ['Num']
+ $P0.'hll_map'($P1, $P2)
.end
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment