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