fixing some primitives

assemble.rkt

@@ -431,11 +431,28 @@ EOF
         (case operator
           [(+)
            (cond [(empty? rand-vals)
-                  "(0)"]
+                  "0"]
                  [else
                   (string-append "(" 
                                  (string-join rand-vals " + ") 
                                  ")")])]
+          [(-)
+           (cond [(empty? rand-vals)
+                  (error '- "Expects at least 1 argument, given 0")]
+                 [(empty? (rest rand-vals))
+                  (format "(-(~a))" (first rand-vals))]
+                 [else
+                  (string-append "(" (string-join rand-vals "-") ")")])]
+          [(*)
+           (cond [(empty? rand-vals)
+                  "1"]
+                 [else
+                  (string-append "(" (string-join rand-vals "*") ")")])]
+          [(/)
+           (cond [(empty? rand-vals)
+                  (error '/ "Expects at least 1 argument, given 0")]
+                 [else
+                  (string-append "(" (string-join rand-vals "/") ")")])]
           [(add1)
            (unless (= 1 (length rand-vals))
              (error 'add1 "Expected one argument"))
@@ -468,6 +485,13 @@ EOF
            (unless (= (length rand-vals) 1)
              (error 'cdr "Expected one argument"))
            (format "(~a)[1]" (first rand-vals))]
+          [(list)
+           (let loop ([rand-vals rand-vals])
+             (cond
+               [(empty? rand-vals)
+                "Primitives.null"]
+               [else
+                (format "[~a,~a]" (first rand-vals) (loop (rest rand-vals)))]))]
           [(null?)
            (unless (= (length rand-vals) 1)
              (error 'null? "Expected one argument"))

il-structs.rkt

@@ -170,6 +170,7 @@
                                     'cons
                                     'car
                                     'cdr
+                                    'list
                                     'null?
                                     ))
 (define-predicate KernelPrimitiveName? KernelPrimitiveName)

runtime.js

@@ -84,28 +84,39 @@ var Primitives = (function() {
 	},
 	
 	'+': function(MACHINE, arity) {
-	    var firstArg = MACHINE.env[MACHINE.env.length-1];
+	    var result = 0;
-	    var secondArg = MACHINE.env[MACHINE.env.length-2];
+	    while (arity > 0) {
-
+		result += MACHINE.env[MACHINE.env.length - arity];
-            return firstArg + secondArg;
+		arity--;
+	    };
+	    return result;
 	},
 	
 	'*': function(MACHINE, arity) {
-	    var firstArg = MACHINE.env[MACHINE.env.length-1];
+	    var result = 1;
-	    var secondArg = MACHINE.env[MACHINE.env.length-2];
+	    while (arity > 0) {
-            return firstArg * secondArg;
+		result *= MACHINE.env[MACHINE.env.length - arity];
+		arity--;
+	    };
 	},
 	
 	'-': function(MACHINE, arity) {
-	    var firstArg = MACHINE.env[MACHINE.env.length-1];
+	    if (arity === 0) { throw new Error(); }
-	    var secondArg = MACHINE.env[MACHINE.env.length-2];
+	    if (arity === 1) { return -(MACHINE.env[MACHINE.env.length-1]); }
-            return firstArg - secondArg;
+	    var result = MACHINE.env[MACHINE.env.length - 1];
+	    for (var i = 1; i < arity; i++) {
+		result -= MACHINE.env[MACHINE.env.length - 1 - i];
+	    }
+	    return result;
 	},
 	
 	'/': function(MACHINE, arity) {
-	    var firstArg = MACHINE.env[MACHINE.env.length-1];
+	    if (arity === 0) { throw new Error(); }
-	    var secondArg = MACHINE.env[MACHINE.env.length-2];
+	    var result = MACHINE.env[MACHINE.env.length - 1];
-	    return firstArg / secondArg;
+	    for (var i = 1; i < arity; i++) {
+		result /= MACHINE.env[MACHINE.env.length - 1 - i];
+	    }
+	    return result;
 	},
 
 	'cons': function(MACHINE, arity) {

simulator.rkt

@@ -350,6 +350,12 @@
         (case op
           [(+)
            (apply + (map ensure-number rand-vals))]
+          [(-)
+           (apply - (ensure-number (first rand-vals)) (map ensure-number (rest rand-vals)))]
+          [(*)
+           (apply * (map ensure-number rand-vals))]
+          [(/)
+           (apply / (ensure-number (first rand-vals)) (map ensure-number (rest rand-vals)))]
           [(add1)
            (add1 (ensure-number (first rand-vals)))]
           [(sub1)
@@ -366,6 +372,12 @@
            (MutablePair-h (ensure-mutable-pair (first rand-vals)))]
           [(cdr)
            (MutablePair-t (ensure-mutable-pair (first rand-vals)))]
+          [(list)
+           (let: loop : PrimitiveValue ([rand-vals : (Listof PrimitiveValue) rand-vals])
+             (cond [(empty? rand-vals)
+                    null]
+                   [(make-MutablePair (first rand-vals)
+                                      (loop (rest rand-vals)))]))]
           [(null?)
            (null? (first rand-vals))]
           [else

test-compiler.rkt

@@ -140,6 +140,14 @@
 (test '(/ 10 5)
       2)
 
+(test '(- 1 2)
+      -1)
+
+(test '(- 3)
+      -3)
+
+(test '(*)
+      1)
 
 ;; composition of square
 (test '(begin (define (f x)