]> gitweb.factorcode.org Git - factor.git/commitdiff
fjsc: add '=' primitive
authorchris.double <chris.double@double.co.nz>
Sat, 16 Dec 2006 22:35:35 +0000 (22:35 +0000)
committerchris.double <chris.double@double.co.nz>
Sat, 16 Dec 2006 22:35:35 +0000 (22:35 +0000)
apps/furnace-fjsc/resources/bootstrap.js

index f2ea6746c9d812eb6e673404eedf83401ee54091..797dcceb261e977e149248b200dcc4bdfa71fc19 100644 (file)
@@ -145,6 +145,12 @@ factor.words["t"] = new Word("t", "primitive", function(world, next) {
   next(world);
 });
 
+factor.words["="] = new Word("=", "primitive", function(world, next) {   
+  var stack = world.data_stack.stack;
+  stack.push(stack.pop()==stack.pop());
+  next(world);
+});
+
 factor.words["window"] = new Word("window", "primitive", function(world, next) {  
   world.data_stack.stack.push(window);
   next(world);