hooks for magical (move) method

panjiva · Jan 11, 2012 · 72c43ac · 72c43ac
1 parent bb83656
commit 72c43ac
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/lesson.html b/lesson.html
@@ -119,6 +119,7 @@
         var handler = function(command) {
           if (command) {
             try {
+            //  if(command[0] = '(')
               jqconsole.Write('==> ' + interpret(command) + '\n');
             } catch (e) {
               jqconsole.Write('ERROR: ' + e.message + '\n');
@@ -158,7 +159,7 @@
         }
 
         void draw() {
-          background(226);
+          background(24);
           image( a, 0, 0 );
 
            // output = interpret($('#program').val());
@@ -192,6 +193,9 @@
           if (target_y < 0)
             target_y += height;
 
+          if(typeof(move) != 'undefined') {
+            interpret('(move)');
+          }
           ellipse(target_x, target_y, 10, 10);
           x = target_x;
           y = target_y;

diff --git a/lisp.js b/lisp.js
@@ -218,7 +218,7 @@ this["and"] = function()
    return cond;
 };
 
-
+this["if"] = this["cond"];
 this["or"] = function()
 {
    var ret = NIL;