shithub: femtolisp

Info  •  Files  •  Log  •  Branches

remove "eq" alias

--- a/flisp.boot

+++ b/flisp.boot

@@ -206,11 +206,10 @@

 										     #fn(io-write)

 										     int32 int16 #fn(get)))

   #fn(iostream->string)) encode-byte-code)

-	    eq #.eq? error

-	    #fn("9000z020210P61:" #(#fn(raise) error) error) eval #fn("7000n170710515160:" #(compile-thunk

-  expand) eval)

-	    even? #fn("7000n1200K52El:" #(#fn(logand)) even?) every

-	    #fn("7000n21H;ID0401<51;3:047001=62:" #(every) every) expand #fn("F000n1\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8a5\x8a6\x8a7\x8a8\x8a9\x8a:\x8a;\x8a<\x8a=\x8a>\x8a?8520_4862186>1_48722e1_4882385868?87>4_489248?89>2_48:258:>1_48;268:8988>3_48<278?8:8988>4_48=28888?>2_48>29_48?2:8?8>8;8<8=>5_48?<0q62:" #(#fn("7000n20Z;I904200152S:" #(#fn(assq)) top?)

+	    error #fn("9000z020210P61:" #(#fn(raise) error) error) eval

+	    #fn("7000n170710515160:" #(compile-thunk expand) eval) even? #fn("7000n1200K52El:" #(#fn(logand)) even?)

+	    every #fn("7000n21H;ID0401<51;3:047001=62:" #(every) every) expand

+	    #fn("F000n1\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8d\x8a5\x8a6\x8a7\x8a8\x8a9\x8a:\x8a;\x8a<\x8a=\x8a>\x8a?8520_4862186>1_48722e1_4882385868?87>4_489248?89>2_48:258:>1_48;268:8988>3_48<278?8:8988>4_48=28888?>2_48>29_48?2:8?8>8;8<8=>5_48?<0q62:" #(#fn("7000n20Z;I904200152S:" #(#fn(assq)) top?)

   #fn("8000n10H3400:020d3400:0<B3P07105122CF023A<7405151A<0=5162:0<A<0=51P:" #(((begin)) caar begin

 									       #fn(append) cdar) splice-begin)

   *expanded* #fn("A000n20H3400:A<201523:0F<051@300A<21152873;0728651@30q2324758852152\x8a987IA024269289>28662:\x8d\x8a:8:278:928993>4_48:<^186518:\x8d8;B3c0493<788;51QIC08;92<8;<89<52_@;08;798;51_48;=?;@\xfb/48::" #(begin

--- a/flisp.c

+++ b/flisp.c

@@ -2316,7 +2316,6 @@

 		if(builtins[i].name)

 			set(symbol(builtins[i].name, false), builtin(i));

 	}

-	set(symbol("eq", false), builtin(OP_EQ));

 	set(symbol("procedure?", false), builtin(OP_FUNCTIONP));

 	set(symbol("top-level-bound?", false), builtin(OP_BOUNDP));