FIX engine -- add "here" and "create" words

A word created with `create` was not added
to `memory.variables` and was not found by `memory.getVariable`

Author: ruv

javascripts/forth.js

@@ -65,7 +65,7 @@ function Forth(next) {
   }
 
   function createCreate(name) {
-    var pointer = context.memory.here();
+    var pointer = context.memory.addCreate(name, 0);
     addToDictionary(name, function (context) {
       context.stack.push(pointer);
     });

javascripts/memory.js

@@ -3,17 +3,30 @@ function Memory() {
   var memArray = [];
   var _memPointer = 1000;
 
+  function here() { // -- addr
+    return _memPointer;
+  }
+
+  function allot(cells) {
+    _memPointer += cells;
+  }
+
   function newMemPointer() {
     return _memPointer++;
   }
 
-  function addVariable(name) {
-    var address = newMemPointer();
+  function addCreate( name, size_cells ) {
+    const address = here();
+    allot( size_cells );
     variables[name.toLowerCase()] = address;
     memArray[address];
     return getVariable(name);
   }
 
+  function addVariable(name) {
+    return addCreate(name, 1);
+  }
+
   function getVariable(name) {
     return variables[name.toLowerCase()];
   }
@@ -26,15 +39,8 @@ function Memory() {
     return memArray[address] || 0;
   }
 
-  function here() { // -- addr
-    return _memPointer;
-  }
-
-  function allot(cells) {
-    _memPointer += cells;
-  }
-
   return {
+    addCreate: addCreate,
     addVariable: addVariable,
     getVariable: getVariable,
     setValue: setValue,

test/spec/forth_spec.js

@@ -837,6 +837,11 @@ describe('Forth', function () {
           function () {
             collectOutput(forth.readLine, 'create foo 4 cells allot', this);
           },
+          function () {
+            const m = forth.q('context').memory ;
+            expect( m.here() - m.getVariable('foo') ).toBe( 4 );
+            done();
+          },
           function (output) {
             expect(output).toBe(" ok");
             forth.readLines([