gistfile1.txt

$ ./perl6 -e 'm: use nqp; say(nqp::numify(nqp::unbox_s("42.42e0")))'
42.42
$ cd ../nqp
$ gd
diff --git a/src/vm/moar/QAST/QASTOperationsMAST.nqp b/src/vm/moar/QAST/QASTOperationsMAST.nqp
index 4c637f1..ffd1a3c 100644
--- a/src/vm/moar/QAST/QASTOperationsMAST.nqp
+++ b/src/vm/moar/QAST/QASTOperationsMAST.nqp
@@ -598,6 +598,9 @@ QAST::MASTOperations.add_core_op('list_b', -> $qastcomp, $op {
     }
     $arr
 });
+QAST::MASTOperations.add_core_op('numify', -> $qastcomp, $op {
+    $qastcomp.as_mast($op[0], :want($MVM_reg_num64))
+});
 QAST::MASTOperations.add_core_op('qlist', -> $qastcomp, $op {
     $qastcomp.as_mast(QAST::Op.new( :op('list'), |@($op) ))
 });