Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

add -o flag to control optimizations, recompile without arg count che…

…cking
  • Loading branch information...
commit b9b55965555b686a0fe87ad623d2adc34ec60c7f 1 parent a6f9de2
@jlongster authored
View
1,019 ast.js
@@ -1,10 +1,4 @@
var util = require("util");var type = (function(obj){
-if(arguments.length < 1) {
-throw Error("type: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("type: too many arguments");
-}
return (function() {if(number_p_(obj)) {return ((function() {return "\uFDD1number"; // Line <unknown undefined> Column <unknown undefined>
}))(); // Line 6 Column 2
} else {return (function() {if(boolean_p_(obj)) {return ((function() {return "\uFDD1boolean"; // Line <unknown undefined> Column <unknown undefined>
@@ -36,113 +30,41 @@ return (function() {if(number_p_(obj)) {return ((function() {return "\uFDD1numbe
; // Line <unknown undefined> Column <unknown undefined>
});
var number_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("number?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("number?: too many arguments");
-}
return _eq__eq_(typeof obj,"number"); // Line 16 Column 3
});
var string_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("string?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("string?: too many arguments");
-}
return (_eq__eq_(typeof obj,"string") && not(_eq__eq_(obj[0],"\uFDD0")) && not(_eq__eq_(obj[0],"\uFDD1"))); // Line <unknown undefined> Column <unknown undefined>
});
var symbol_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("symbol?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("symbol?: too many arguments");
-}
return ((_eq__eq_(typeof obj,"string") && _eq__eq_(obj[0],"\uFDD1"))); // Line <unknown undefined> Column <unknown undefined>
});
var key_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("key?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("key?: too many arguments");
-}
return (_eq__eq_(typeof obj,"string") && _eq__eq_(obj[0],"\uFDD0")); // Line <unknown undefined> Column <unknown undefined>
});
var boolean_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("boolean?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("boolean?: too many arguments");
-}
return (eq_p_(obj,true) || eq_p_(obj,false)); // Line <unknown undefined> Column <unknown undefined>
});
var null_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("null?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("null?: too many arguments");
-}
return (!!obj && not(eq_p_(obj["length"],undefined)) && eq_p_(obj["length"],1) && eq_p_(vector_dash_ref(obj,0),null)); // Line <unknown undefined> Column <unknown undefined>
});
var list_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("list?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("list?: too many arguments");
-}
return (!!obj && not(eq_p_(obj["length"],undefined)) && not(eq_p_(obj["list"],undefined))); // Line <unknown undefined> Column <unknown undefined>
});
var vector_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("vector?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("vector?: too many arguments");
-}
return (not(list_p_(obj)) && not(null_p_(obj)) && !!obj && eq_p_(typeof obj,"object") && not(eq_p_(obj["length"],undefined))); // Line <unknown undefined> Column <unknown undefined>
});
var dict_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("dict?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("dict?: too many arguments");
-}
return (not(symbol_p_(obj)) && !!obj && eq_p_(typeof obj,"object") && eq_p_(obj["length"],undefined)); // Line <unknown undefined> Column <unknown undefined>
});
var function_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("function?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("function?: too many arguments");
-}
return eq_p_(typeof obj,"function"); // Line 60 Column 3
});
var literal_p_ = (function(x){
-if(arguments.length < 1) {
-throw Error("literal?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("literal?: too many arguments");
-}
return (key_p_(x) || number_p_(x) || string_p_(x) || boolean_p_(x) || null_p_(x)); // Line <unknown undefined> Column <unknown undefined>
});
var str = (function() {
var args = vector_dash__gt_list(Array.prototype.slice.call(arguments));
return fold((function(el,acc){
-if(arguments.length < 2) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("lambda: too many arguments");
-}
return (acc + (function() {if(string_p_(el)) {return el; // Line <unknown undefined> Column <unknown undefined>
} else {return inspect(el); // Line 75 Column 36
}})()
@@ -150,57 +72,21 @@ return (acc + (function() {if(string_p_(el)) {return el; // Line <unknown undefi
}),"",args); // Line 73 Column 5
});
var symbol_dash__gt_key = (function(sym){
-if(arguments.length < 1) {
-throw Error("symbol->key: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("symbol->key: too many arguments");
-}
return ("\uFDD0" + sym["substring"](1)); // Line <unknown undefined> Column <unknown undefined>
});
var key_dash__gt_symbol = (function(sym){
-if(arguments.length < 1) {
-throw Error("key->symbol: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("key->symbol: too many arguments");
-}
return ("\uFDD1" + sym["substring"](1)); // Line <unknown undefined> Column <unknown undefined>
});
var string_dash__gt_key = (function(str){
-if(arguments.length < 1) {
-throw Error("string->key: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("string->key: too many arguments");
-}
return ("\uFDD0" + str); // Line <unknown undefined> Column <unknown undefined>
});
var key_dash__gt_string = (function(key){
-if(arguments.length < 1) {
-throw Error("key->string: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("key->string: too many arguments");
-}
return key["substring"](1); // Line 89 Column 3
});
var string_dash__gt_symbol = (function(str){
-if(arguments.length < 1) {
-throw Error("string->symbol: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("string->symbol: too many arguments");
-}
return ("\uFDD1" + str); // Line <unknown undefined> Column <unknown undefined>
});
var symbol_dash__gt_string = (function(sym){
-if(arguments.length < 1) {
-throw Error("symbol->string: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("symbol->string: too many arguments");
-}
return sym["substring"](1); // Line 95 Column 3
});
var _emptylst = [null];
@@ -209,136 +95,46 @@ var args = vector_dash__gt_list(Array.prototype.slice.call(arguments));
return args; // Line <unknown undefined> Column <unknown undefined>
});
var cons = (function(obj,lst){
-if(arguments.length < 2) {
-throw Error("cons: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("cons: too many arguments");
-}
-return ((function() {var o8634010 = (function(res){
-if(arguments.length < 1) {
-throw Error("o8634010: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("o8634010: too many arguments");
-}
+return ((function() {var o7433644 = (function(res){
res.list = true;return res; // Line <unknown undefined> Column <unknown undefined>
});
-var o4185710 = [obj, lst];
-return o8634010(o4185710); // Line 106 Column 2
+var o6726220 = [obj, lst];
+return o7433644(o6726220); // Line 106 Column 2
}))(); // Line 106 Column 2
});
var car = (function(lst){
-if(arguments.length < 1) {
-throw Error("car: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("car: too many arguments");
-}
return lst[0]});
var cdr = (function(lst){
-if(arguments.length < 1) {
-throw Error("cdr: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("cdr: too many arguments");
-}
return lst[1]});
var cadr = (function(lst){
-if(arguments.length < 1) {
-throw Error("cadr: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("cadr: too many arguments");
-}
return car(cdr(lst)); // Line 116 Column 20
});
var cddr = (function(lst){
-if(arguments.length < 1) {
-throw Error("cddr: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("cddr: too many arguments");
-}
return cdr(cdr(lst)); // Line 117 Column 20
});
var cdar = (function(lst){
-if(arguments.length < 1) {
-throw Error("cdar: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("cdar: too many arguments");
-}
return cdr(car(lst)); // Line 118 Column 20
});
var caddr = (function(lst){
-if(arguments.length < 1) {
-throw Error("caddr: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("caddr: too many arguments");
-}
return car(cdr(cdr(lst))); // Line 119 Column 21
});
var cdddr = (function(lst){
-if(arguments.length < 1) {
-throw Error("cdddr: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("cdddr: too many arguments");
-}
return cdr(cdr(cdr(lst))); // Line 120 Column 21
});
var cadar = (function(lst){
-if(arguments.length < 1) {
-throw Error("cadar: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("cadar: too many arguments");
-}
return car(cdr(car(lst))); // Line 121 Column 21
});
var cddar = (function(lst){
-if(arguments.length < 1) {
-throw Error("cddar: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("cddar: too many arguments");
-}
return cdr(cdr(car(lst))); // Line 122 Column 21
});
var caadr = (function(lst){
-if(arguments.length < 1) {
-throw Error("caadr: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("caadr: too many arguments");
-}
return car(car(cdr(lst))); // Line 123 Column 21
});
var cdadr = (function(lst){
-if(arguments.length < 1) {
-throw Error("cdadr: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("cdadr: too many arguments");
-}
return cdr(car(cdr(lst))); // Line 124 Column 21
});
var list_dash_ref = (function(lst,i){
-if(arguments.length < 2) {
-throw Error("list-ref: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("list-ref: too many arguments");
-}
return ((function() {var loop = (function(lst,i){
-if(arguments.length < 2) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("loop: too many arguments");
-}
return (function() {if(null_p_(lst)) {return ((function() {return false; // Line <unknown undefined> Column <unknown undefined>
}))(); // Line 127 Column 2
} else {return (function() {if(eq_p_(i,0)) {return ((function() {return car(lst); // Line 127 Column 2
@@ -350,32 +146,17 @@ return (function() {if(null_p_(lst)) {return ((function() {return false; // Line
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o8501755 = lst;
-var o5255882 = i;
-return loop(o8501755,o5255882); // Line 127 Column 2
+var o9141892 = lst;
+var o5654819 = i;
+return loop(o9141892,o5654819); // Line 127 Column 2
}))(); // Line 127 Column 2
});
var length = (function(lst){
-if(arguments.length < 1) {
-throw Error("length: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("length: too many arguments");
-}
return fold((function(el,acc){
-if(arguments.length < 2) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("lambda: too many arguments");
-}
return (acc + 1); // Line <unknown undefined> Column <unknown undefined>
}),0,lst); // Line 135 Column 3
});
var list_dash_append = (function(){
-if(arguments.length < 0) {
-throw Error("list-append: not enough arguments")
-}
var lsts = vector_dash__gt_list(Array.prototype.slice.call(arguments, 0));
var l_star_ = (function() {if(null_p_(lsts)) {return _emptylst; // Line <unknown undefined> Column <unknown undefined>
} else {return lsts; // Line <unknown undefined> Column <unknown undefined>
@@ -390,47 +171,20 @@ return (function() {if(null_p_(l_star_)) {return _emptylst; // Line <unknown und
; // Line <unknown undefined> Column <unknown undefined>
});
var _list_dash_append = (function(lst1,lst2){
-if(arguments.length < 2) {
-throw Error("_list-append: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("_list-append: too many arguments");
-}
return ((function() {var loop = (function(lst){
-if(arguments.length < 1) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("loop: too many arguments");
-}
return (function() {if(null_p_(lst)) {return lst2; // Line <unknown undefined> Column <unknown undefined>
} else {return cons(car(lst),loop(cdr(lst))); // Line 149 Column 2
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o5458424 = lst1;
-return loop(o5458424); // Line 149 Column 2
+var o5030636 = lst1;
+return loop(o5030636); // Line 149 Column 2
}))(); // Line 149 Column 2
});
var list_dash_find = (function(lst,val){
-if(arguments.length < 2) {
-throw Error("list-find: not enough arguments")
-}
var rst = vector_dash__gt_list(Array.prototype.slice.call(arguments, 2));
-return ((function() {var o3848969 = (function(access){
-if(arguments.length < 1) {
-throw Error("o3848969: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("o3848969: too many arguments");
-}
+return ((function() {var o5042493 = (function(access){
return ((function() {var loop = (function(lst){
-if(arguments.length < 1) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("loop: too many arguments");
-}
return (function() {if(null_p_(lst)) {return false; // Line <unknown undefined> Column <unknown undefined>
} else {return (function() {if(_eq__eq_(access(car(lst)),val)) {return lst; // Line <unknown undefined> Column <unknown undefined>
} else {return vector("__tco_call",(function() {return loop(cdr(lst)); // Line 156 Column 2
@@ -440,51 +194,27 @@ return (function() {if(null_p_(lst)) {return false; // Line <unknown undefined>
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o1434060 = lst;
-return trampoline(loop(o1434060)); // Line 156 Column 2
+var o2725761 = lst;
+return trampoline(loop(o2725761)); // Line 156 Column 2
}))(); // Line 156 Column 2
});
-var o4671376 = (function() {if(null_p_(rst)) {return (function(x){
-if(arguments.length < 1) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("lambda: too many arguments");
-}
+var o5380359 = (function() {if(null_p_(rst)) {return (function(x){
return x; // Line <unknown undefined> Column <unknown undefined>
}); // Line <unknown undefined> Column <unknown undefined>
} else {return car(rst); // Line 156 Column 2
}})()
;
-return o3848969(o4671376); // Line 156 Column 2
+return o5042493(o5380359); // Line 156 Column 2
}))(); // Line 156 Column 2
});
var map = (function(func,lst){
-if(arguments.length < 2) {
-throw Error("map: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("map: too many arguments");
-}
return (function() {if(null_p_(lst)) {return _emptylst; // Line <unknown undefined> Column <unknown undefined>
} else {return cons(func(car(lst)),map(func,cdr(lst))); // Line 167 Column 7
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
var for_dash_each = (function(func,lst){
-if(arguments.length < 2) {
-throw Error("for-each: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("for-each: too many arguments");
-}
return ((function() {var loop = (function(lst){
-if(arguments.length < 1) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("loop: too many arguments");
-}
return (function() {if(not(null_p_(lst))) {return ((function() {func(car(lst)); // Line 171 Column 2
return vector("__tco_call",(function() {return loop(cdr(lst)); // Line 171 Column 2
})); // Line 171 Column 2
@@ -492,78 +222,36 @@ return vector("__tco_call",(function() {return loop(cdr(lst)); // Line 171 Colum
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o9591666 = lst;
-return trampoline(loop(o9591666)); // Line 171 Column 2
+var o2516890 = lst;
+return trampoline(loop(o2516890)); // Line 171 Column 2
}))(); // Line 171 Column 2
});
var fold = (function(func,acc,lst){
-if(arguments.length < 3) {
-throw Error("fold: not enough arguments")
-}
-else if(arguments.length > 3) {
-throw Error("fold: too many arguments");
-}
return (function() {if(null_p_(lst)) {return acc; // Line <unknown undefined> Column <unknown undefined>
} else {return fold(func,func(car(lst),acc),cdr(lst)); // Line 180 Column 7
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
var reverse = (function(lst){
-if(arguments.length < 1) {
-throw Error("reverse: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("reverse: too many arguments");
-}
return (function() {if(null_p_(lst)) {return _emptylst; // Line <unknown undefined> Column <unknown undefined>
} else {return list_dash_append(reverse(cdr(lst)),list(car(lst))); // Line 187 Column 7
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
var vector_dash__gt_list = (function(vec){
-if(arguments.length < 1) {
-throw Error("vector->list: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("vector->list: too many arguments");
-}
return ((function() {var loop = (function(i){
-if(arguments.length < 1) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("loop: too many arguments");
-}
return (function() {if((i < vec.length)) {return cons(vector_dash_ref(vec,i),loop((i + 1))); // Line 193 Column 2
} else {return _emptylst}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o9482611 = 0;
-return loop(o9482611); // Line 193 Column 2
+var o3284087 = 0;
+return loop(o3284087); // Line 193 Column 2
}))(); // Line 193 Column 2
});
var make_dash_vector = (function(count){
-if(arguments.length < 1) {
-throw Error("make-vector: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("make-vector: too many arguments");
-}
var val = arguments[1] || false;
-return ((function() {var o2590411 = (function(v){
-if(arguments.length < 1) {
-throw Error("o2590411: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("o2590411: too many arguments");
-}
+return ((function() {var o3186296 = (function(v){
return (function() {if(val) {return ((function() {var loop = (function(i){
-if(arguments.length < 1) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("loop: too many arguments");
-}
return (function() {if((i < count)) {return ((function() {vector_dash_put_excl_(v,i,val); // Line 202 Column 2
return vector("__tco_call",(function() {return loop((i + 1)); // Line 202 Column 2
})); // Line 202 Column 2
@@ -572,88 +260,43 @@ return vector("__tco_call",(function() {return loop((i + 1)); // Line 202 Column
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o7588124 = 0;
-return trampoline(loop(o7588124)); // Line 202 Column 2
+var o2688993 = 0;
+return trampoline(loop(o2688993)); // Line 202 Column 2
}))(); // Line 202 Column 2
} else {return v; // Line <unknown undefined> Column <unknown undefined>
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o2128333 = new Array(count);
-return o2590411(o2128333); // Line 202 Column 2
+var o4047863 = new Array(count);
+return o3186296(o4047863); // Line 202 Column 2
}))(); // Line 202 Column 2
});
var vector = (function() {return Array.prototype.slice.call(arguments)});
var vector_dash_ref = (function(vec,i){
-if(arguments.length < 2) {
-throw Error("vector-ref: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("vector-ref: too many arguments");
-}
return vec[i]});
var vector_dash_put_excl_ = (function(vec,i,obj){
-if(arguments.length < 3) {
-throw Error("vector-put!: not enough arguments")
-}
-else if(arguments.length > 3) {
-throw Error("vector-put!: too many arguments");
-}
return vec[i] = obj});
var vector_dash_concat = (function(){
-if(arguments.length < 0) {
-throw Error("vector-concat: not enough arguments")
-}
var vecs = vector_dash__gt_list(Array.prototype.slice.call(arguments, 0));
return ((function() {var loop = (function(lst,res){
-if(arguments.length < 2) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("loop: too many arguments");
-}
return (function() {if(null_p_(lst)) {return res; // Line <unknown undefined> Column <unknown undefined>
} else {return vector("__tco_call",(function() {return loop(cdr(lst),res["concat"](car(lst))); // Line 222 Column 2
})); // Line 222 Column 2
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o3830985 = cdr(vecs);
-var o2767814 = car(vecs);
-return trampoline(loop(o3830985,o2767814)); // Line 222 Column 2
+var o8786045 = cdr(vecs);
+var o962674 = car(vecs);
+return trampoline(loop(o8786045,o962674)); // Line 222 Column 2
}))(); // Line 222 Column 2
});
var vector_dash_slice = (function(vec,start){
-if(arguments.length < 2) {
-throw Error("vector-slice: not enough arguments")
-}
-else if(arguments.length > 3) {
-throw Error("vector-slice: too many arguments");
-}
var end = arguments[2] || false;
return vec.slice(start, end || undefined)});
var vector_dash_push_excl_ = (function(vec,obj){
-if(arguments.length < 2) {
-throw Error("vector-push!: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("vector-push!: too many arguments");
-}
return vec.push(obj)});
var vector_dash_find = (function(vec,val){
-if(arguments.length < 2) {
-throw Error("vector-find: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("vector-find: too many arguments");
-}
return ((function() {var loop = (function(i){
-if(arguments.length < 1) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("loop: too many arguments");
-}
return (function() {if((i < vec.length)) {return (function() {if(eq_p_(vector_dash_ref(vec,i),val)) {return i; // Line <unknown undefined> Column <unknown undefined>
} else {return vector("__tco_call",(function() {return loop((i + 1)); // Line 236 Column 2
})); // Line 236 Column 2
@@ -663,53 +306,23 @@ return (function() {if((i < vec.length)) {return (function() {if(eq_p_(vector_da
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o5365054 = 0;
-return trampoline(loop(o5365054)); // Line 236 Column 2
+var o2293943 = 0;
+return trampoline(loop(o2293943)); // Line 236 Column 2
}))(); // Line 236 Column 2
});
var vector_dash_length = (function(vec){
-if(arguments.length < 1) {
-throw Error("vector-length: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("vector-length: too many arguments");
-}
return vec["length"]; // Line <unknown undefined> Column <unknown undefined>
});
var list_dash__gt_vector = (function(lst){
-if(arguments.length < 1) {
-throw Error("list->vector: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("list->vector: too many arguments");
-}
var res = [];
for_dash_each((function(el){
-if(arguments.length < 1) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("lambda: too many arguments");
-}
return res["push"](el); // Line 248 Column 15
}),lst); // Line 247 Column 3
return res; // Line <unknown undefined> Column <unknown undefined>
});
var vector_dash_map = (function(func,vec){
-if(arguments.length < 2) {
-throw Error("vector-map: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("vector-map: too many arguments");
-}
var res = [];
((function() {var loop = (function(i){
-if(arguments.length < 1) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("loop: too many arguments");
-}
return (function() {if((i < vec["length"])) {return ((function() {res["push"](func(vector_dash_ref(vec,i))); // Line 254 Column 2
return vector("__tco_call",(function() {return loop((i + 1)); // Line 254 Column 2
})); // Line 254 Column 2
@@ -717,25 +330,13 @@ return vector("__tco_call",(function() {return loop((i + 1)); // Line 254 Column
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o7450151 = 0;
-return trampoline(loop(o7450151)); // Line 254 Column 2
+var o9585045 = 0;
+return trampoline(loop(o9585045)); // Line 254 Column 2
}))(); // Line 254 Column 2
return res; // Line <unknown undefined> Column <unknown undefined>
});
var vector_dash_for_dash_each = (function(func,vec){
-if(arguments.length < 2) {
-throw Error("vector-for-each: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("vector-for-each: too many arguments");
-}
return ((function() {var loop = (function(i){
-if(arguments.length < 1) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("loop: too many arguments");
-}
return (function() {if((i < vec["length"])) {return ((function() {func(vector_dash_ref(vec,i)); // Line 262 Column 2
return vector("__tco_call",(function() {return loop((i + 1)); // Line 262 Column 2
})); // Line 262 Column 2
@@ -743,171 +344,84 @@ return vector("__tco_call",(function() {return loop((i + 1)); // Line 262 Column
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o7362510 = 0;
-return trampoline(loop(o7362510)); // Line 262 Column 2
+var o69103 = 0;
+return trampoline(loop(o69103)); // Line 262 Column 2
}))(); // Line 262 Column 2
});
var vector_dash_fold = (function(func,acc,vec){
-if(arguments.length < 3) {
-throw Error("vector-fold: not enough arguments")
-}
-else if(arguments.length > 3) {
-throw Error("vector-fold: too many arguments");
-}
return ((function() {var loop = (function(i,acc){
-if(arguments.length < 2) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("loop: too many arguments");
-}
return (function() {if((i < vector_dash_length(vec))) {return vector("__tco_call",(function() {return loop((i + 1),func(vector_dash_ref(vec,i),acc)); // Line 269 Column 2
})); // Line 269 Column 2
} else {return acc; // Line <unknown undefined> Column <unknown undefined>
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o8888976 = 0;
-var o1297207 = acc;
-return trampoline(loop(o8888976,o1297207)); // Line 269 Column 2
+var o9471352 = 0;
+var o4302239 = acc;
+return trampoline(loop(o9471352,o4302239)); // Line 269 Column 2
}))(); // Line 269 Column 2
});
var dict = (function() {
var args = vector_dash__gt_list(Array.prototype.slice.call(arguments));
var res = {};
((function() {var loop = (function(lst){
-if(arguments.length < 1) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("loop: too many arguments");
-}
-return (function() {if(not(null_p_(lst))) {return ((function() {var o6552772 = (function(key,val){
-if(arguments.length < 2) {
-throw Error("o6552772: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("o6552772: too many arguments");
-}
+return (function() {if(not(null_p_(lst))) {return ((function() {var o8221900 = (function(key,val){
dict_dash_put_excl_(res,key,val); // Line 281 Column 4
return vector("__tco_call",(function() {return loop(cddr(lst)); // Line 281 Column 4
})); // Line 281 Column 4
});
-var o1448147 = car(lst);
-var o119873 = cadr(lst);
-return o6552772(o1448147,o119873); // Line 281 Column 4
+var o4282238 = car(lst);
+var o6371580 = cadr(lst);
+return o8221900(o4282238,o6371580); // Line 281 Column 4
}))(); // Line 281 Column 4
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o9020810 = args;
-return trampoline(loop(o9020810)); // Line 281 Column 4
+var o343786 = args;
+return trampoline(loop(o343786)); // Line 281 Column 4
}))(); // Line 281 Column 4
return res; // Line <unknown undefined> Column <unknown undefined>
});
var dict_dash_put_excl_ = (function(dct,k,v){
-if(arguments.length < 3) {
-throw Error("dict-put!: not enough arguments")
-}
-else if(arguments.length > 3) {
-throw Error("dict-put!: too many arguments");
-}
return dct[k.substring(1)] = v});
var dict_dash_ref = (function(dct,k){
-if(arguments.length < 2) {
-throw Error("dict-ref: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("dict-ref: too many arguments");
-}
return dct[k.substring(1)]});
var dict_dash_map = (function(func,dct){
-if(arguments.length < 2) {
-throw Error("dict-map: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("dict-map: too many arguments");
-}
var res = dict();
((function() {var loop = (function(lst){
-if(arguments.length < 1) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("loop: too many arguments");
-}
-return (function() {if(not(null_p_(lst))) {return ((function() {var o2697718 = (function(k){
-if(arguments.length < 1) {
-throw Error("o2697718: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("o2697718: too many arguments");
-}
+return (function() {if(not(null_p_(lst))) {return ((function() {var o7648636 = (function(k){
dict_dash_put_excl_(res,k,func(dict_dash_ref(dct,k))); // Line 297 Column 2
return vector("__tco_call",(function() {return loop(cdr(lst)); // Line 297 Column 2
})); // Line 297 Column 2
});
-var o879719 = car(lst);
-return o2697718(o879719); // Line 297 Column 2
+var o9332427 = car(lst);
+return o7648636(o9332427); // Line 297 Column 2
}))(); // Line 297 Column 2
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o2897896 = keys(dct);
-return trampoline(loop(o2897896)); // Line 297 Column 2
+var o7002672 = keys(dct);
+return trampoline(loop(o7002672)); // Line 297 Column 2
}))(); // Line 297 Column 2
return res; // Line <unknown undefined> Column <unknown undefined>
});
var dict_dash_merge = (function(){
-if(arguments.length < 0) {
-throw Error("dict-merge: not enough arguments")
-}
var dcts = vector_dash__gt_list(Array.prototype.slice.call(arguments, 0));
-return ((function() {var o4947276 = (function(res){
-if(arguments.length < 1) {
-throw Error("o4947276: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("o4947276: too many arguments");
-}
+return ((function() {var o6330110 = (function(res){
for_dash_each((function(dct){
-if(arguments.length < 1) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("lambda: too many arguments");
-}
return for_dash_each((function(k){
-if(arguments.length < 1) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("lambda: too many arguments");
-}
return dict_dash_put_excl_(res,k,dict_dash_ref(dct,k)); // Line 306 Column 2
}),keys(dct)); // Line 306 Column 2
}),dcts); // Line 306 Column 2
return res; // Line <unknown undefined> Column <unknown undefined>
});
-var o8711829 = dict();
-return o4947276(o8711829); // Line 306 Column 2
+var o5586391 = dict();
+return o6330110(o5586391); // Line 306 Column 2
}))(); // Line 306 Column 2
});
var dict_dash__gt_vector = (function(dct){
-if(arguments.length < 1) {
-throw Error("dict->vector: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("dict->vector: too many arguments");
-}
var res = vector();
((function() {var loop = (function(lst){
-if(arguments.length < 1) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("loop: too many arguments");
-}
return (function() {if(not(null_p_(lst))) {return ((function() {vector_dash_push_excl_(res,car(lst)); // Line 316 Column 2
vector_dash_push_excl_(res,dict_dash_ref(dct,car(lst))); // Line 316 Column 2
return vector("__tco_call",(function() {return loop(cdr(lst)); // Line 316 Column 2
@@ -916,74 +430,32 @@ return vector("__tco_call",(function() {return loop(cdr(lst)); // Line 316 Colum
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o3479103 = keys(dct);
-return trampoline(loop(o3479103)); // Line 316 Column 2
+var o8601327 = keys(dct);
+return trampoline(loop(o8601327)); // Line 316 Column 2
}))(); // Line 316 Column 2
return res; // Line <unknown undefined> Column <unknown undefined>
});
var dict_dash__gt_list = (function(dct){
-if(arguments.length < 1) {
-throw Error("dict->list: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("dict->list: too many arguments");
-}
return vector_dash__gt_list(dict_dash__gt_vector(dct)); // Line 325 Column 3
});
var keys = (function(dct){
-if(arguments.length < 1) {
-throw Error("keys: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("keys: too many arguments");
-}
-return ((function() {var o2009072 = (function(res){
-if(arguments.length < 1) {
-throw Error("o2009072: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("o2009072: too many arguments");
-}
+return ((function() {var o7304648 = (function(res){
for(var k in dct) {
res = cons(string_dash__gt_key(k), res);
}return res; // Line <unknown undefined> Column <unknown undefined>
});
-var o3251151 = _emptylst;
-return o2009072(o3251151); // Line 328 Column 2
+var o7588604 = _emptylst;
+return o7304648(o7588604); // Line 328 Column 2
}))(); // Line 328 Column 2
});
var vals = (function(dct){
-if(arguments.length < 1) {
-throw Error("vals: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("vals: too many arguments");
-}
return map((function(k){
-if(arguments.length < 1) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("lambda: too many arguments");
-}
return dict_dash_ref(dct,k); // Line 335 Column 20
}),keys(dct)); // Line 335 Column 3
});
var zip = (function(keys,vals){
-if(arguments.length < 2) {
-throw Error("zip: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("zip: too many arguments");
-}
var res = dict();
((function() {var loop = (function(ks,vs){
-if(arguments.length < 2) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("loop: too many arguments");
-}
return (function() {if(not(null_p_(ks))) {return ((function() {dict_dash_put_excl_(res,car(ks),car(vs)); // Line 340 Column 2
return vector("__tco_call",(function() {return loop(cdr(ks),cdr(vs)); // Line 340 Column 2
})); // Line 340 Column 2
@@ -991,43 +463,19 @@ return vector("__tco_call",(function() {return loop(cdr(ks),cdr(vs)); // Line 34
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o7299865 = keys;
-var o8267366 = vals;
-return trampoline(loop(o7299865,o8267366)); // Line 340 Column 2
+var o153509 = keys;
+var o9416364 = vals;
+return trampoline(loop(o153509,o9416364)); // Line 340 Column 2
}))(); // Line 340 Column 2
return res; // Line <unknown undefined> Column <unknown undefined>
});
var not = (function(obj){
-if(arguments.length < 1) {
-throw Error("not: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("not: too many arguments");
-}
return (typeof obj !== 'number' && !obj); // Line <unknown undefined> Column <unknown undefined>
});
var _eq__eq_ = (function(obj1,obj2){
-if(arguments.length < 2) {
-throw Error("==: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("==: too many arguments");
-}
return obj1 === obj2});
var _eq_ = (function(obj1,obj2){
-if(arguments.length < 2) {
-throw Error("=: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("=: too many arguments");
-}
return (function() {if((list_p_(obj1) && list_p_(obj2))) {return ((function() {return ((function() {var loop = (function(lst1,lst2){
-if(arguments.length < 2) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("loop: too many arguments");
-}
var n1 = null_p_(lst1);
var n2 = null_p_(lst2);
return (function() {if((n1 && n2)) {return ((function() {return true; // Line <unknown undefined> Column <unknown undefined>
@@ -1044,19 +492,13 @@ return (function() {if((n1 && n2)) {return ((function() {return true; // Line <u
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o2237128 = obj1;
-var o3002681 = obj2;
-return loop(o2237128,o3002681); // Line 360 Column 2
+var o1953977 = obj1;
+var o3231566 = obj2;
+return loop(o1953977,o3231566); // Line 360 Column 2
}))(); // Line 360 Column 2
}))(); // Line 360 Column 2
} else {return (function() {if((vector_p_(obj1) && vector_p_(obj2))) {return ((function() {return (function() {if(not(_eq_(obj1["length"],obj2["length"]))) {return false; // Line <unknown undefined> Column <unknown undefined>
} else {return ((function() {var loop = (function(i){
-if(arguments.length < 1) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("loop: too many arguments");
-}
return (function() {if((i < obj1["length"])) {return (function() {if(_eq_(vector_dash_ref(obj1,i),vector_dash_ref(obj2,i))) {return vector("__tco_call",(function() {return loop((i + 1)); // Line 360 Column 2
})); // Line 360 Column 2
} else {return false; // Line <unknown undefined> Column <unknown undefined>
@@ -1066,26 +508,14 @@ return (function() {if((i < obj1["length"])) {return (function() {if(_eq_(vector
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o9504941 = 0;
-return trampoline(loop(o9504941)); // Line 360 Column 2
+var o6663684 = 0;
+return trampoline(loop(o6663684)); // Line 360 Column 2
}))(); // Line 360 Column 2
}})()
; // Line <unknown undefined> Column <unknown undefined>
}))(); // Line 360 Column 2
-} else {return (function() {if((dict_p_(obj1) && dict_p_(obj2))) {return ((function() {return ((function() {var o5503660 = (function(keys1,keys2){
-if(arguments.length < 2) {
-throw Error("o5503660: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("o5503660: too many arguments");
-}
+} else {return (function() {if((dict_p_(obj1) && dict_p_(obj2))) {return ((function() {return ((function() {var o2004024 = (function(keys1,keys2){
return (eq_p_(length(keys1),length(keys2)) && ((function() {var loop = (function(lst){
-if(arguments.length < 1) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("loop: too many arguments");
-}
return (function() {if(null_p_(lst)) {return true; // Line <unknown undefined> Column <unknown undefined>
} else {return (function() {if(equal_p_(dict_dash_ref(obj1,car(lst)),dict_dash_ref(obj2,car(lst)))) {return vector("__tco_call",(function() {return loop(cdr(lst)); // Line 360 Column 2
})); // Line 360 Column 2
@@ -1095,13 +525,13 @@ return (function() {if(null_p_(lst)) {return true; // Line <unknown undefined> C
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o4425679 = keys1;
-return trampoline(loop(o4425679)); // Line 360 Column 2
+var o4342930 = keys1;
+return trampoline(loop(o4342930)); // Line 360 Column 2
}))()); // Line <unknown undefined> Column <unknown undefined>
});
-var o3381950 = keys(obj1);
-var o6400636 = keys(obj2);
-return o5503660(o3381950,o6400636); // Line 360 Column 2
+var o7006543 = keys(obj1);
+var o8924827 = keys(obj2);
+return o2004024(o7006543,o8924827); // Line 360 Column 2
}))(); // Line 360 Column 2
}))(); // Line 360 Column 2
} else {return ((function() {return eq_p_(obj1,obj2); // Line 360 Column 2
@@ -1116,39 +546,15 @@ return o5503660(o3381950,o6400636); // Line 360 Column 2
var eq_p_ = _eq__eq_;
var equal_p_ = _eq_;
var print = (function(msg){
-if(arguments.length < 1) {
-throw Error("print: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("print: too many arguments");
-}
return util["print"](msg); // Line 408 Column 3
});
var println = (function(msg){
-if(arguments.length < 1) {
-throw Error("println: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("println: too many arguments");
-}
return util["puts"](msg); // Line 411 Column 3
});
var pp = (function(obj){
-if(arguments.length < 1) {
-throw Error("pp: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("pp: too many arguments");
-}
return println(inspect(obj)); // Line 414 Column 3
});
var _per_inspect_dash_non_dash_sequence = (function(obj){
-if(arguments.length < 1) {
-throw Error("%inspect-non-sequence: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("%inspect-non-sequence: too many arguments");
-}
return (function() {if(number_p_(obj)) {return ((function() {return ("" + obj); // Line <unknown undefined> Column <unknown undefined>
}))(); // Line 418 Column 2
} else {return (function() {if(string_p_(obj)) {return ((function() {obj = obj["replace"](RegExp("\\\\","g"),"\\\\");
@@ -1189,58 +595,25 @@ return ("\"" + obj + "\""); // Line <unknown undefined> Column <unknown undefine
; // Line <unknown undefined> Column <unknown undefined>
});
var _per_recur_dash_protect = (function(obj,arg,func,halt){
-if(arguments.length < 4) {
-throw Error("%recur-protect: not enough arguments")
-}
var rest = vector_dash__gt_list(Array.prototype.slice.call(arguments, 4));
-return ((function() {var o3081190 = (function(parents){
-if(arguments.length < 1) {
-throw Error("o3081190: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("o3081190: too many arguments");
-}
+return ((function() {var o7680845 = (function(parents){
return (function() {if(list_dash_find(parents,obj)) {return halt; // Line <unknown undefined> Column <unknown undefined>
} else {return func(obj,arg,(function(el,arg){
-if(arguments.length < 2) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("lambda: too many arguments");
-}
return _per_recur_dash_protect(el,arg,func,halt,cons(obj,parents)); // Line 435 Column 2
})); // Line 435 Column 2
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o9543810 = (function() {if(null_p_(rest)) {return _emptylst; // Line <unknown undefined> Column <unknown undefined>
+var o6211910 = (function() {if(null_p_(rest)) {return _emptylst; // Line <unknown undefined> Column <unknown undefined>
} else {return car(rest); // Line 435 Column 2
}})()
;
-return o3081190(o9543810); // Line 435 Column 2
+return o7680845(o6211910); // Line 435 Column 2
}))(); // Line 435 Column 2
});
var _per_space = (function(obj){
-if(arguments.length < 1) {
-throw Error("%space: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("%space: too many arguments");
-}
return _per_recur_dash_protect(obj,false,(function(obj,arg,recur){
-if(arguments.length < 3) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 3) {
-throw Error("lambda: too many arguments");
-}
return (function() {if(list_p_(obj)) {return ((function() {return (length(obj) + 1 + fold((function(el,acc){
-if(arguments.length < 2) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("lambda: too many arguments");
-}
return (acc + recur(el,false)); // Line <unknown undefined> Column <unknown undefined>
}),0,obj)); // Line <unknown undefined> Column <unknown undefined>
}))(); // Line 448 Column 5
@@ -1259,68 +632,23 @@ return (acc + recur(el,false)); // Line <unknown undefined> Column <unknown unde
}),vector_dash_length("<circular>")); // Line 444 Column 3
});
var inspect = (function(obj){
-if(arguments.length < 1) {
-throw Error("inspect: not enough arguments")
-}
var rest = vector_dash__gt_list(Array.prototype.slice.call(arguments, 1));
-return ((function() {var o6767545 = (function(no_dash_newlines){
-if(arguments.length < 1) {
-throw Error("o6767545: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("o6767545: too many arguments");
-}
+return ((function() {var o755518 = (function(no_dash_newlines){
return _per_recur_dash_protect(obj,1,(function(obj,i,recur){
-if(arguments.length < 3) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 3) {
-throw Error("lambda: too many arguments");
-}
var buffer = "";
var get_dash_buffer = (function() {return buffer; // Line <unknown undefined> Column <unknown undefined>
});
var disp = (function(s){
-if(arguments.length < 1) {
-throw Error("disp: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("disp: too many arguments");
-}
buffer = (buffer + s);
});
var pad = (function(n){
-if(arguments.length < 1) {
-throw Error("pad: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("pad: too many arguments");
-}
return vector_dash_for_dash_each((function(_){
-if(arguments.length < 1) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("lambda: too many arguments");
-}
return disp(" "); // Line 468 Column 2
}),make_dash_vector(n)); // Line 468 Column 2
});
-return (function() {if(list_p_(obj)) {return ((function() {return ((function() {var o5835072 = (function(sp,first){
-if(arguments.length < 2) {
-throw Error("o5835072: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("o5835072: too many arguments");
-}
+return (function() {if(list_p_(obj)) {return ((function() {return ((function() {var o6985168 = (function(sp,first){
disp("("); // Line 468 Column 2
for_dash_each((function(el){
-if(arguments.length < 1) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("lambda: too many arguments");
-}
(function() {if(not(first)) {return (function() {if((sp && not(no_dash_newlines))) {return ((function() {disp("\n"); // Line 468 Column 2
return pad(i); // Line 468 Column 2
}))(); // Line 468 Column 2
@@ -1335,26 +663,14 @@ first = false;
disp(")"); // Line 468 Column 2
return get_dash_buffer(); // Line 468 Column 2
});
-var o4387955 = (_per_space(obj) > 30);
-var o4229010 = true;
-return o5835072(o4387955,o4229010); // Line 468 Column 2
+var o889211 = (_per_space(obj) > 30);
+var o2042965 = true;
+return o6985168(o889211,o2042965); // Line 468 Column 2
}))(); // Line 468 Column 2
}))(); // Line 468 Column 2
-} else {return (function() {if(vector_p_(obj)) {return ((function() {return ((function() {var o7087018 = (function(sp,first){
-if(arguments.length < 2) {
-throw Error("o7087018: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("o7087018: too many arguments");
-}
+} else {return (function() {if(vector_p_(obj)) {return ((function() {return ((function() {var o9185490 = (function(sp,first){
disp("["); // Line 468 Column 2
vector_dash_for_dash_each((function(el){
-if(arguments.length < 1) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("lambda: too many arguments");
-}
(function() {if(not(first)) {return (function() {if((sp && not(no_dash_newlines))) {return ((function() {disp("\n"); // Line 468 Column 2
return pad(i); // Line 468 Column 2
}))(); // Line 468 Column 2
@@ -1369,26 +685,14 @@ first = false;
disp("]"); // Line 468 Column 2
return get_dash_buffer(); // Line 468 Column 2
});
-var o6158937 = (_per_space(obj) > 30);
-var o9586128 = true;
-return o7087018(o6158937,o9586128); // Line 468 Column 2
+var o3876320 = (_per_space(obj) > 30);
+var o1320161 = true;
+return o9185490(o3876320,o1320161); // Line 468 Column 2
}))(); // Line 468 Column 2
}))(); // Line 468 Column 2
-} else {return (function() {if(dict_p_(obj)) {return ((function() {return ((function() {var o2058374 = (function(sp,first){
-if(arguments.length < 2) {
-throw Error("o2058374: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("o2058374: too many arguments");
-}
+} else {return (function() {if(dict_p_(obj)) {return ((function() {return ((function() {var o3070403 = (function(sp,first){
disp("{"); // Line 468 Column 2
for_dash_each((function(k){
-if(arguments.length < 1) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("lambda: too many arguments");
-}
(function() {if(not(first)) {return (function() {if((sp && not(no_dash_newlines))) {return ((function() {disp("\n"); // Line 468 Column 2
return pad(i); // Line 468 Column 2
}))(); // Line 468 Column 2
@@ -1405,9 +709,9 @@ first = false;
disp("}"); // Line 468 Column 2
return get_dash_buffer(); // Line 468 Column 2
});
-var o2525106 = (_per_space(obj) > 30);
-var o9239235 = true;
-return o2058374(o2525106,o9239235); // Line 468 Column 2
+var o2804105 = (_per_space(obj) > 30);
+var o6662910 = true;
+return o3070403(o2804105,o6662910); // Line 468 Column 2
}))(); // Line 468 Column 2
}))(); // Line 468 Column 2
} else {return ((function() {return _per_inspect_dash_non_dash_sequence(obj); // Line 468 Column 2
@@ -1420,38 +724,20 @@ return o2058374(o2525106,o9239235); // Line 468 Column 2
; // Line <unknown undefined> Column <unknown undefined>
}),"<circular>"); // Line 468 Column 2
});
-var o9766079 = (function() {if(null_p_(rest)) {return false; // Line <unknown undefined> Column <unknown undefined>
+var o2816058 = (function() {if(null_p_(rest)) {return false; // Line <unknown undefined> Column <unknown undefined>
} else {return car(rest); // Line 468 Column 2
}})()
;
-return o6767545(o9766079); // Line 468 Column 2
+return o755518(o2816058); // Line 468 Column 2
}))(); // Line 468 Column 2
});
var apply = (function(func,args){
-if(arguments.length < 2) {
-throw Error("apply: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("apply: too many arguments");
-}
return func.apply(null,list_dash__gt_vector(args)); // Line 542 Column 3
});
var trampoline_dash_result_p_ = (function(value){
-if(arguments.length < 1) {
-throw Error("trampoline-result?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("trampoline-result?: too many arguments");
-}
return (vector_p_(value) && _eq_(vector_dash_ref(value,0),"__tco_call")); // Line <unknown undefined> Column <unknown undefined>
});
var trampoline = (function(value){
-if(arguments.length < 1) {
-throw Error("trampoline: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("trampoline: too many arguments");
-}
while(trampoline_dash_result_p_(value)) { value = value[1](); }return value; // Line <unknown undefined> Column <unknown undefined>
});
var gensym = (function() {return string_dash__gt_symbol(("o" + Math["floor"]((Math["random"]() * 10000000)))); // Line 556 Column 3
@@ -1459,48 +745,18 @@ var gensym = (function() {return string_dash__gt_symbol(("o" + Math["floor"]((Ma
var vec_dash_getter = (function(i){
-if(arguments.length < 1) {
-throw Error("vec-getter: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("vec-getter: too many arguments");
-}
return (function(vec){
-if(arguments.length < 1) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("lambda: too many arguments");
-}
return vector_dash_ref(vec,i); // Line 3 Column 5
}); // Line <unknown undefined> Column <unknown undefined>
});
var unique_dash_obj = list(false);
var make_dash_node = (function(type,data,lineno,colno){
-if(arguments.length < 4) {
-throw Error("make-node: not enough arguments")
-}
-else if(arguments.length > 4) {
-throw Error("make-node: too many arguments");
-}
return vector(unique_dash_obj,type,data,false,lineno,colno); // Line 8 Column 2
});
var make_dash_node_dash_w_slash_extra = (function(type,data,extra,lineno,colno){
-if(arguments.length < 5) {
-throw Error("make-node-w/extra: not enough arguments")
-}
-else if(arguments.length > 5) {
-throw Error("make-node-w/extra: too many arguments");
-}
return vector(unique_dash_obj,type,data,extra,lineno,colno); // Line 11 Column 2
});
var copy_dash_node = (function(node,data){
-if(arguments.length < 2) {
-throw Error("copy-node: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("copy-node: too many arguments");
-}
return make_dash_node_dash_w_slash_extra(node_dash_type(node),data,node_dash_extra(node),node_dash_lineno(node),node_dash_colno(node)); // Line 14 Column 3
});
var node_dash_type = vec_dash_getter(1);
@@ -1509,12 +765,6 @@ var node_dash_extra = vec_dash_getter(3);
var node_dash_lineno = vec_dash_getter(4);
var node_dash_colno = vec_dash_getter(5);
var assert_dash_node = (function(node){
-if(arguments.length < 1) {
-throw Error("assert-node: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("assert-node: too many arguments");
-}
return (function() {if(not((vector_p_(node) && _eq__eq_(vector_dash_ref(node,0),unique_dash_obj)))) {return ((function() {pp(node); // Line 29 Column 6
throw(Error(str("not a node"))); // Line 29 Column 6
}))(); // Line 29 Column 6
@@ -1522,150 +772,57 @@ throw(Error(str("not a node"))); // Line 29 Column 6
; // Line <unknown undefined> Column <unknown undefined>
});
var assert_dash_type = (function(node,type){
-if(arguments.length < 2) {
-throw Error("assert-type: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("assert-type: too many arguments");
-}
return (function() {if(not(_eq__eq_(node_dash_type(node),type))) {throw(Error(str("expected node type ",type,": ",node))); // Line 35 Column 7
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
var is_dash_type_p_ = (function(node,type){
-if(arguments.length < 2) {
-throw Error("is-type?: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("is-type?: too many arguments");
-}
assert_dash_node(node); // Line 38 Column 3
return _eq__eq_(node_dash_type(node),type); // Line 39 Column 3
});
var is_dash_atom_p_ = (function(node){
-if(arguments.length < 1) {
-throw Error("is-atom?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("is-atom?: too many arguments");
-}
return (is_dash_type_p_(node,"\uFDD1ATOM") || (is_dash_type_p_(node,"\uFDD1LIST") && null_p_(node_dash_data(node)))); // Line <unknown undefined> Column <unknown undefined>
});
var is_dash_list_p_ = (function(node){
-if(arguments.length < 1) {
-throw Error("is-list?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("is-list?: too many arguments");
-}
return (is_dash_type_p_(node,"\uFDD1LIST") && not(null_p_(node_dash_data(node)))); // Line <unknown undefined> Column <unknown undefined>
});
var is_dash_vector_p_ = (function(node){
-if(arguments.length < 1) {
-throw Error("is-vector?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("is-vector?: too many arguments");
-}
return is_dash_type_p_(node,"\uFDD1VECTOR"); // Line 47 Column 27
});
var is_dash_dict_p_ = (function(node){
-if(arguments.length < 1) {
-throw Error("is-dict?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("is-dict?: too many arguments");
-}
return is_dash_type_p_(node,"\uFDD1DICT"); // Line 48 Column 25
});
var is_dash_empty_dash_list_p_ = (function(node){
-if(arguments.length < 1) {
-throw Error("is-empty-list?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("is-empty-list?: too many arguments");
-}
return (is_dash_type_p_(node,"\uFDD1LIST") && null_p_(node_dash_data(node))); // Line <unknown undefined> Column <unknown undefined>
});
var make_dash_atom = (function(type,parent){
-if(arguments.length < 2) {
-throw Error("make-atom: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("make-atom: too many arguments");
-}
return make_dash_node("\uFDD1ATOM",type,node_dash_lineno(parent),node_dash_colno(parent)); // Line 55 Column 3
});
var make_dash_list = (function(){
-if(arguments.length < 0) {
-throw Error("make-list: not enough arguments")
-}
var children = vector_dash__gt_list(Array.prototype.slice.call(arguments, 0));
return make_dash_list_star_(children); // Line 60 Column 3
});
var make_dash_list_star_ = (function(children){
-if(arguments.length < 1) {
-throw Error("make-list*: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("make-list*: too many arguments");
-}
-return ((function() {var o692712 = (function(first){
-if(arguments.length < 1) {
-throw Error("o692712: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("o692712: too many arguments");
-}
+return ((function() {var o7451584 = (function(first){
return make_dash_node("\uFDD1LIST",children,node_dash_lineno(first),node_dash_colno(first)); // Line 63 Column 2
});
-var o8417968 = car(children);
-return o692712(o8417968); // Line 63 Column 2
+var o570540 = car(children);
+return o7451584(o570540); // Line 63 Column 2
}))(); // Line 63 Column 2
});
var make_dash_empty_dash_list = (function(parent){
-if(arguments.length < 1) {
-throw Error("make-empty-list: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("make-empty-list: too many arguments");
-}
return make_dash_node("\uFDD1LIST",_emptylst,node_dash_lineno(parent),node_dash_colno(parent)); // Line 69 Column 3
});
var prepend = (function(node,lst){
-if(arguments.length < 2) {
-throw Error("prepend: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("prepend: too many arguments");
-}
return make_dash_node("\uFDD1LIST",cons(node,node_dash_data(lst)),node_dash_lineno(node),node_dash_colno(node)); // Line 74 Column 3
});
var map_dash_children = (function(func,lst){
-if(arguments.length < 2) {
-throw Error("map-children: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("map-children: too many arguments");
-}
return make_dash_node("\uFDD1LIST",map(func,node_dash_data(lst)),node_dash_lineno(lst),node_dash_colno(lst)); // Line 80 Column 3
});
var first = (function(node){
-if(arguments.length < 1) {
-throw Error("first: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("first: too many arguments");
-}
return car(node_dash_data(node)); // Line 86 Column 3
});
var first_star_ = (function(node){
-if(arguments.length < 1) {
-throw Error("first*: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("first*: too many arguments");
-}
return node_dash_data(car(node_dash_data(node))); // Line 89 Column 3
});
module["exports"] = dict("\uFDD0make-node",make_dash_node,"\uFDD0make-node-w/extra",make_dash_node_dash_w_slash_extra,"\uFDD0copy-node",copy_dash_node,"\uFDD0node-type",node_dash_type,"\uFDD0node-data",node_dash_data,"\uFDD0node-extra",node_dash_extra,"\uFDD0node-lineno",node_dash_lineno,"\uFDD0node-colno",node_dash_colno,"\uFDD0type?",is_dash_type_p_,"\uFDD0atom?",is_dash_atom_p_,"\uFDD0list?",is_dash_list_p_,"\uFDD0vector?",is_dash_vector_p_,"\uFDD0dict?",is_dash_dict_p_,"\uFDD0empty-list?",is_dash_empty_dash_list_p_,"\uFDD0make-list",make_dash_list,"\uFDD0make-list*",make_dash_list_star_,"\uFDD0make-empty-list",make_dash_empty_dash_list,"\uFDD0make-atom",make_dash_atom,"\uFDD0prepend",prepend,"\uFDD0map-children",map_dash_children,"\uFDD0first",first,"\uFDD0first*",first_star_);
View
1,463 backends/js.js
@@ -1,10 +1,4 @@
var util = require("util");var type = (function(obj){
-if(arguments.length < 1) {
-throw Error("type: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("type: too many arguments");
-}
return (function() {if(number_p_(obj)) {return ((function() {return "\uFDD1number"; // Line <unknown undefined> Column <unknown undefined>
}))(); // Line 6 Column 2
} else {return (function() {if(boolean_p_(obj)) {return ((function() {return "\uFDD1boolean"; // Line <unknown undefined> Column <unknown undefined>
@@ -36,113 +30,41 @@ return (function() {if(number_p_(obj)) {return ((function() {return "\uFDD1numbe
; // Line <unknown undefined> Column <unknown undefined>
});
var number_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("number?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("number?: too many arguments");
-}
return _eq__eq_(typeof obj,"number"); // Line 16 Column 3
});
var string_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("string?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("string?: too many arguments");
-}
return (_eq__eq_(typeof obj,"string") && not(_eq__eq_(obj[0],"\uFDD0")) && not(_eq__eq_(obj[0],"\uFDD1"))); // Line <unknown undefined> Column <unknown undefined>
});
var symbol_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("symbol?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("symbol?: too many arguments");
-}
return ((_eq__eq_(typeof obj,"string") && _eq__eq_(obj[0],"\uFDD1"))); // Line <unknown undefined> Column <unknown undefined>
});
var key_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("key?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("key?: too many arguments");
-}
return (_eq__eq_(typeof obj,"string") && _eq__eq_(obj[0],"\uFDD0")); // Line <unknown undefined> Column <unknown undefined>
});
var boolean_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("boolean?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("boolean?: too many arguments");
-}
return (eq_p_(obj,true) || eq_p_(obj,false)); // Line <unknown undefined> Column <unknown undefined>
});
var null_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("null?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("null?: too many arguments");
-}
return (!!obj && not(eq_p_(obj["length"],undefined)) && eq_p_(obj["length"],1) && eq_p_(vector_dash_ref(obj,0),null)); // Line <unknown undefined> Column <unknown undefined>
});
var list_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("list?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("list?: too many arguments");
-}
return (!!obj && not(eq_p_(obj["length"],undefined)) && not(eq_p_(obj["list"],undefined))); // Line <unknown undefined> Column <unknown undefined>
});
var vector_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("vector?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("vector?: too many arguments");
-}
return (not(list_p_(obj)) && not(null_p_(obj)) && !!obj && eq_p_(typeof obj,"object") && not(eq_p_(obj["length"],undefined))); // Line <unknown undefined> Column <unknown undefined>
});
var dict_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("dict?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("dict?: too many arguments");
-}
return (not(symbol_p_(obj)) && !!obj && eq_p_(typeof obj,"object") && eq_p_(obj["length"],undefined)); // Line <unknown undefined> Column <unknown undefined>
});
var function_p_ = (function(obj){
-if(arguments.length < 1) {
-throw Error("function?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("function?: too many arguments");
-}
return eq_p_(typeof obj,"function"); // Line 60 Column 3
});
var literal_p_ = (function(x){
-if(arguments.length < 1) {
-throw Error("literal?: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("literal?: too many arguments");
-}
return (key_p_(x) || number_p_(x) || string_p_(x) || boolean_p_(x) || null_p_(x)); // Line <unknown undefined> Column <unknown undefined>
});
var str = (function() {
var args = vector_dash__gt_list(Array.prototype.slice.call(arguments));
return fold((function(el,acc){
-if(arguments.length < 2) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("lambda: too many arguments");
-}
return (acc + (function() {if(string_p_(el)) {return el; // Line <unknown undefined> Column <unknown undefined>
} else {return inspect(el); // Line 75 Column 36
}})()
@@ -150,57 +72,21 @@ return (acc + (function() {if(string_p_(el)) {return el; // Line <unknown undefi
}),"",args); // Line 73 Column 5
});
var symbol_dash__gt_key = (function(sym){
-if(arguments.length < 1) {
-throw Error("symbol->key: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("symbol->key: too many arguments");
-}
return ("\uFDD0" + sym["substring"](1)); // Line <unknown undefined> Column <unknown undefined>
});
var key_dash__gt_symbol = (function(sym){
-if(arguments.length < 1) {
-throw Error("key->symbol: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("key->symbol: too many arguments");
-}
return ("\uFDD1" + sym["substring"](1)); // Line <unknown undefined> Column <unknown undefined>
});
var string_dash__gt_key = (function(str){
-if(arguments.length < 1) {
-throw Error("string->key: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("string->key: too many arguments");
-}
return ("\uFDD0" + str); // Line <unknown undefined> Column <unknown undefined>
});
var key_dash__gt_string = (function(key){
-if(arguments.length < 1) {
-throw Error("key->string: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("key->string: too many arguments");
-}
return key["substring"](1); // Line 89 Column 3
});
var string_dash__gt_symbol = (function(str){
-if(arguments.length < 1) {
-throw Error("string->symbol: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("string->symbol: too many arguments");
-}
return ("\uFDD1" + str); // Line <unknown undefined> Column <unknown undefined>
});
var symbol_dash__gt_string = (function(sym){
-if(arguments.length < 1) {
-throw Error("symbol->string: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("symbol->string: too many arguments");
-}
return sym["substring"](1); // Line 95 Column 3
});
var _emptylst = [null];
@@ -209,136 +95,46 @@ var args = vector_dash__gt_list(Array.prototype.slice.call(arguments));
return args; // Line <unknown undefined> Column <unknown undefined>
});
var cons = (function(obj,lst){
-if(arguments.length < 2) {
-throw Error("cons: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("cons: too many arguments");
-}
-return ((function() {var o8634010 = (function(res){
-if(arguments.length < 1) {
-throw Error("o8634010: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("o8634010: too many arguments");
-}
+return ((function() {var o7433644 = (function(res){
res.list = true;return res; // Line <unknown undefined> Column <unknown undefined>
});
-var o4185710 = [obj, lst];
-return o8634010(o4185710); // Line 106 Column 2
+var o6726220 = [obj, lst];
+return o7433644(o6726220); // Line 106 Column 2
}))(); // Line 106 Column 2
});
var car = (function(lst){
-if(arguments.length < 1) {
-throw Error("car: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("car: too many arguments");
-}
return lst[0]});
var cdr = (function(lst){
-if(arguments.length < 1) {
-throw Error("cdr: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("cdr: too many arguments");
-}
return lst[1]});
var cadr = (function(lst){
-if(arguments.length < 1) {
-throw Error("cadr: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("cadr: too many arguments");
-}
return car(cdr(lst)); // Line 116 Column 20
});
var cddr = (function(lst){
-if(arguments.length < 1) {
-throw Error("cddr: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("cddr: too many arguments");
-}
return cdr(cdr(lst)); // Line 117 Column 20
});
var cdar = (function(lst){
-if(arguments.length < 1) {
-throw Error("cdar: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("cdar: too many arguments");
-}
return cdr(car(lst)); // Line 118 Column 20
});
var caddr = (function(lst){
-if(arguments.length < 1) {
-throw Error("caddr: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("caddr: too many arguments");
-}
return car(cdr(cdr(lst))); // Line 119 Column 21
});
var cdddr = (function(lst){
-if(arguments.length < 1) {
-throw Error("cdddr: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("cdddr: too many arguments");
-}
return cdr(cdr(cdr(lst))); // Line 120 Column 21
});
var cadar = (function(lst){
-if(arguments.length < 1) {
-throw Error("cadar: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("cadar: too many arguments");
-}
return car(cdr(car(lst))); // Line 121 Column 21
});
var cddar = (function(lst){
-if(arguments.length < 1) {
-throw Error("cddar: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("cddar: too many arguments");
-}
return cdr(cdr(car(lst))); // Line 122 Column 21
});
var caadr = (function(lst){
-if(arguments.length < 1) {
-throw Error("caadr: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("caadr: too many arguments");
-}
return car(car(cdr(lst))); // Line 123 Column 21
});
var cdadr = (function(lst){
-if(arguments.length < 1) {
-throw Error("cdadr: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("cdadr: too many arguments");
-}
return cdr(car(cdr(lst))); // Line 124 Column 21
});
var list_dash_ref = (function(lst,i){
-if(arguments.length < 2) {
-throw Error("list-ref: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("list-ref: too many arguments");
-}
return ((function() {var loop = (function(lst,i){
-if(arguments.length < 2) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("loop: too many arguments");
-}
return (function() {if(null_p_(lst)) {return ((function() {return false; // Line <unknown undefined> Column <unknown undefined>
}))(); // Line 127 Column 2
} else {return (function() {if(eq_p_(i,0)) {return ((function() {return car(lst); // Line 127 Column 2
@@ -350,32 +146,17 @@ return (function() {if(null_p_(lst)) {return ((function() {return false; // Line
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o8501755 = lst;
-var o5255882 = i;
-return loop(o8501755,o5255882); // Line 127 Column 2
+var o9141892 = lst;
+var o5654819 = i;
+return loop(o9141892,o5654819); // Line 127 Column 2
}))(); // Line 127 Column 2
});
var length = (function(lst){
-if(arguments.length < 1) {
-throw Error("length: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("length: too many arguments");
-}
return fold((function(el,acc){
-if(arguments.length < 2) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("lambda: too many arguments");
-}
return (acc + 1); // Line <unknown undefined> Column <unknown undefined>
}),0,lst); // Line 135 Column 3
});
var list_dash_append = (function(){
-if(arguments.length < 0) {
-throw Error("list-append: not enough arguments")
-}
var lsts = vector_dash__gt_list(Array.prototype.slice.call(arguments, 0));
var l_star_ = (function() {if(null_p_(lsts)) {return _emptylst; // Line <unknown undefined> Column <unknown undefined>
} else {return lsts; // Line <unknown undefined> Column <unknown undefined>
@@ -390,47 +171,20 @@ return (function() {if(null_p_(l_star_)) {return _emptylst; // Line <unknown und
; // Line <unknown undefined> Column <unknown undefined>
});
var _list_dash_append = (function(lst1,lst2){
-if(arguments.length < 2) {
-throw Error("_list-append: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("_list-append: too many arguments");
-}
return ((function() {var loop = (function(lst){
-if(arguments.length < 1) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("loop: too many arguments");
-}
return (function() {if(null_p_(lst)) {return lst2; // Line <unknown undefined> Column <unknown undefined>
} else {return cons(car(lst),loop(cdr(lst))); // Line 149 Column 2
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o5458424 = lst1;
-return loop(o5458424); // Line 149 Column 2
+var o5030636 = lst1;
+return loop(o5030636); // Line 149 Column 2
}))(); // Line 149 Column 2
});
var list_dash_find = (function(lst,val){
-if(arguments.length < 2) {
-throw Error("list-find: not enough arguments")
-}
var rst = vector_dash__gt_list(Array.prototype.slice.call(arguments, 2));
-return ((function() {var o3848969 = (function(access){
-if(arguments.length < 1) {
-throw Error("o3848969: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("o3848969: too many arguments");
-}
+return ((function() {var o5042493 = (function(access){
return ((function() {var loop = (function(lst){
-if(arguments.length < 1) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("loop: too many arguments");
-}
return (function() {if(null_p_(lst)) {return false; // Line <unknown undefined> Column <unknown undefined>
} else {return (function() {if(_eq__eq_(access(car(lst)),val)) {return lst; // Line <unknown undefined> Column <unknown undefined>
} else {return vector("__tco_call",(function() {return loop(cdr(lst)); // Line 156 Column 2
@@ -440,51 +194,27 @@ return (function() {if(null_p_(lst)) {return false; // Line <unknown undefined>
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
-var o1434060 = lst;
-return trampoline(loop(o1434060)); // Line 156 Column 2
+var o2725761 = lst;
+return trampoline(loop(o2725761)); // Line 156 Column 2
}))(); // Line 156 Column 2
});
-var o4671376 = (function() {if(null_p_(rst)) {return (function(x){
-if(arguments.length < 1) {
-throw Error("lambda: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("lambda: too many arguments");
-}
+var o5380359 = (function() {if(null_p_(rst)) {return (function(x){
return x; // Line <unknown undefined> Column <unknown undefined>
}); // Line <unknown undefined> Column <unknown undefined>
} else {return car(rst); // Line 156 Column 2
}})()
;
-return o3848969(o4671376); // Line 156 Column 2
+return o5042493(o5380359); // Line 156 Column 2
}))(); // Line 156 Column 2
});
var map = (function(func,lst){
-if(arguments.length < 2) {
-throw Error("map: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("map: too many arguments");
-}
return (function() {if(null_p_(lst)) {return _emptylst; // Line <unknown undefined> Column <unknown undefined>
} else {return cons(func(car(lst)),map(func,cdr(lst))); // Line 167 Column 7
}})()
; // Line <unknown undefined> Column <unknown undefined>
});
var for_dash_each = (function(func,lst){
-if(arguments.length < 2) {
-throw Error("for-each: not enough arguments")
-}
-else if(arguments.length > 2) {
-throw Error("for-each: too many arguments");
-}
return ((function() {var loop = (function(lst){
-if(arguments.length < 1) {
-throw Error("loop: not enough arguments")
-}
-else if(arguments.length > 1) {
-throw Error("loop: too many arguments");