Skip to content
Browse files

End of the experiment; this may be worthwhile.

  • Loading branch information...
1 parent 94783d0 commit 5447b25ea4786c108cf792dbe416110829b5bab9 Danny Yoo committed Aug 7, 2011
Showing with 7 additions and 12 deletions.
  1. +6 −6 compiler/compiler.rkt
  2. +0 −3 js-assembler/runtime-src/baselib-functions.js
  3. +1 −3 js-assembler/runtime-src/runtime.js
View
12 compiler/compiler.rkt
@@ -1380,9 +1380,9 @@
linkage
cenv
(append-instruction-sequences
- (make-TestAndJumpStatement (make-TestPrimitiveProcedure
- (make-Reg 'proc))
- primitive-branch)
+ ;; (make-TestAndJumpStatement (make-TestPrimitiveProcedure
+ ;; (make-Reg 'proc))
+ ;; primitive-branch)
;; Compiled branch
@@ -1394,9 +1394,9 @@
compiled-linkage)
;; Primitive branch
- primitive-branch
- (make-PerformStatement (make-CheckPrimitiveArity! (make-Reg 'argcount)))
- (compile-primitive-application cenv target primitive-linkage)
+ ;; primitive-branch
+ ;; (make-PerformStatement (make-CheckPrimitiveArity! (make-Reg 'argcount)))
+ ;; (compile-primitive-application cenv target primitive-linkage)
after-call)))))
View
3 js-assembler/runtime-src/baselib-functions.js
@@ -284,9 +284,6 @@
return MACHINE.control.pop().label(MACHINE);
},
[]);
- // f.racketArity = arity;
- // f.displayName = name;
- // return f;
};
var makeClosure = function(name, arity, f, closureArgs) {
View
4 js-assembler/runtime-src/runtime.js
@@ -513,9 +513,7 @@ if(this['plt'] === undefined) { this['plt'] = {}; }
var Primitives = {};
var installPrimitiveProcedure = function(name, arity, f) {
- Primitives[name] = f;
- Primitives[name].racketArity = arity;
- Primitives[name].displayName = name;
+ Primitives[name] = makePrimitiveProcedure(name, arity, f);
};
var installPrimitiveClosure = function(name, arity, f) {

0 comments on commit 5447b25

Please sign in to comment.
Something went wrong with that request. Please try again.