fix for checking procedure arity. Thanks to Jens for the bug report.

js-assembler/runtime-src/baselib-arity.js

@@ -41,7 +41,7 @@
 	    while (arity !== baselib.lists.EMPTY) {
 		if (typeof(arity.first) === 'number') {
 		    if (arity.first === n) { return true; }
-		} else if (isArityAtLeast(arity)) {
+		} else if (isArityAtLeast(arity.first)) {
 		    if (n >= arityAtLeastValue(arity.first)) { return true; }
 		}
 		arity = arity.rest;

js-assembler/runtime-src/runtime.js

@@ -222,6 +222,9 @@
         this.mainModules = []; // Arrayof String
 	this.params = {
 
+            // print-as-expression: boolean
+            'print-as-expression' : true,
+
 	    // currentDisplayer: DomNode -> Void
 	    // currentDisplayer is responsible for displaying to the browser.
 	    'currentDisplayer': function(MACHINE, domNode) {

tests/more-tests/map.expected

@@ -0,0 +1,4 @@
+(5 7 9)
+(5 7 9)
+(12 15 18)
+(1 2 3)

tests/more-tests/map.rkt

@@ -1,2 +1,6 @@
 #lang planet dyoo/whalesong
+
 (map (lambda (x y) (+ x y)) (list 1 2 3) (list 4 5 6))
+(map + (list 1 2 3) (list 4 5 6))
+(map + (list 1 2 3) (list 4 5 6) (list 7 8 9))
+(map + (list 1 2 3))

tests/run-more-tests.rkt

@@ -14,6 +14,7 @@
 (test "more-tests/hello.rkt")
 (test "more-tests/sharing.rkt")
 (test "more-tests/simple-functions.rkt")
+(test "more-tests/map.rkt")
 (test "more-tests/quasi.rkt")
 (test "more-tests/sk-generator.rkt")
 (test "more-tests/sk-generator-2.rkt")