shithub: femtolisp

--- a/compiler.lsp

+++ b/compiler.lsp

@@ -811,7 +811,7 @@

                   (print-val (aref vals (aref code i)))

                   (set! i (+ i 1)))

-                 ((loada seta loadc call tcall list + - * / vector

+                 ((loada seta loadc call tcall list + - * / < = vector

                    argc vargc loadi8 apply tapply closure box shift aref)

                   (print-inst inst i 1)

                   (princ (number->string (+ (aref code i) (if (eq? inst 'aref) 3 0))))

--- a/flisp.boot

+++ b/flisp.boot

@@ -191,10 +191,10 @@

 									    hex5 ":  " " ") print-inst)

   #fn(length) #fn(table-foldl) #fn("7000n382;I?041AF<GQ;34040:" #()) Instructions > #fn("6000n1702161:" #(princ

   "\t")) #fn(memq) (loadv.l loadg.l setg.l) ref-int32-LE (loadv loadg setg)

-  (loada seta loadc call tcall list + - * / vector argc vargc loadi8 apply tapply closure box shift

-   aref) princ #fn(number->string) aref (loada.l seta.l loadc.l largc lvargc call.l tcall.l box.l)

-  (optargs keyargs) keyargs " " brbound (jmp brf brt brne brnn brn) "@" hex5 ref-int16-LE (jmp.l

-  brf.l brt.l brne.l brnn.l brn.l)) disassemble)

+  (loada seta loadc call tcall list + - * / < = vector argc vargc loadi8 apply tapply closure box

+   shift aref) princ #fn(number->string) aref (loada.l seta.l loadc.l largc lvargc call.l tcall.l

+						       box.l) (optargs keyargs) keyargs " " brbound

+  (jmp brf brt brne brnn brn) "@" hex5 ref-int16-LE (jmp.l brf.l brt.l brne.l brnn.l brn.l)) disassemble)

 	    div #fn("7000n201k0EL2;3D041EL2;3404K;I504r/;I404EM:" #() div) emit

 	    #fn("Q000z2\x8d2021?75140EG82Jk0122CB088<23C:08824_@R0125CE08788<513;00E88=p@900E188Pp@\x9e126127523A078082<52e1?2@30O42912:52893F07;82<2<523:089T?1@30O^142912=52893F07;82<2<523:089T?1@30O^1412>C\\0822?d3=02@?14q?2@F0822Ad3=02B?14q?2@30O@30O412CC\\0822?d3=02D?14q?2@F0822Ad3=02E?14q?2@30O@30O488<12FQ;3\x9b04892GCM088T2HCE00E82<2I7J8851PPp@x0892GCB00E82<2K88=PPp@a0892LCB00E82<2M88=PPp@J0892HCB00E82<2N88=PPp@30O;I]0412KCI0892HCB00E82<2I88=PPp@?00E7O182P8852p^140:" #(#0#

   #fn("7000n17002162:" #(member (load0 load1 loadt loadf loadnil loadvoid)) load?) car cdr cadr pop

binary files a/flisp.boot.builtin b/flisp.boot.builtin differ