adding number?

2011-08-17 16:53:13 -04:00 · 2011-08-17 16:53:13 -04:00 · c0917801d7
commit c0917801d7
parent 91a0432abb
2 changed files with 7 additions and 1 deletions
--- a/js-assembler/runtime-src/baselib-primitives.js
+++ b/js-assembler/runtime-src/baselib-primitives.js
@ -964,6 +964,12 @@
        });


+    installPrimitiveProcedure(
+	'number?',
+	1,
+	function(MACHINE) {
+	    return isNumber(MACHINE.env[MACHINE.env.length - 1]);
+	});


    installPrimitiveProcedure(
--- a/lang/kernel.rkt
+++ b/lang/kernel.rkt
@ -273,7 +273,7 @@ vector?
 ;;  eof-object?
 ;;  bytes?
 ;;  byte?
-;;  number?
+number?
 ;;  complex?
 ;;  real?
 ;;  rational?