function sc_map(proc, l1) {
    if (l1 === undefined)
	return null;
    // else
    var nbApplyArgs = arguments.length - 1;
    var applyArgs = new Array(nbApplyArgs);
    var revres = null;
    while (l1 !== null) {
	for (var i = 0; i < nbApplyArgs; i++) {
	    applyArgs[i] = arguments[i + 1].car;
	    arguments[i + 1] = arguments[i + 1].cdr;
	}
	revres = sc_cons(proc.apply(null, applyArgs), revres);
    }
    return sc_reverseAppendBang(revres, null);
}
function sc_map(proc, l1) {
    if (l1 === undefined)
	return null;
    
    var nbApplyArgs = arguments.length - 1;
    var applyArgs = new Array(nbApplyArgs);
    var revres = null;
    while (l1 !== null) {
	for (var i = 0; i < nbApplyArgs; i++) {
	    applyArgs[i] = arguments[i + 1].car;
	    arguments[i + 1] = arguments[i + 1].cdr;
	}
	revres = sc_cons(proc.apply(null, applyArgs), revres);
    }
    return sc_reverseAppendBang(revres, null);
}
function sc_map ( proc , l1 ) { if ( l1 === undefined ) return null ; // else var nbApplyArgs = arguments . length - 1 ; var applyArgs = new Array ( nbApplyArgs ) ; var revres = null ; while ( l1 !== null ) { for ( var i = 0 ; i < nbApplyArgs ; i ++ ) { applyArgs [ i ] = arguments [ i + 1 ] . car ; arguments [ i + 1 ] = arguments [ i + 1 ] . cdr ; } revres = sc_cons ( proc . apply ( null , applyArgs ) , revres ) ; } return sc_reverseAppendBang ( revres , null ) ; }
* META ((export #t))
* META (( export #t ))