shithub: femtolisp

Info  •  Files  •  Log  •  Branches

disassemble: the newline is indeed needed, always

--- a/compiler.lsp

+++ b/compiler.lsp

@@ -604,6 +604,7 @@

 (define (disassemble f (ip #f) . lev?)

   (if (null? lev?)

       (begin (disassemble f ip 0)

+             (newline)

              (return #t)))

   (let ((lev (car lev?))

         (code (function:code f))

--- a/flisp.boot

+++ b/flisp.boot

@@ -197,8 +197,8 @@

   #fn("8000n120>D51Aq62:" #(#fn("6000n120>?040:" #(#fn("9000n20H38070161:219100<52390A0=162:229100<D534A0=0<1P62:" #(reverse!

   #fn(has?) #fn(put!))))))) #fn(table) #fn("8000n270015238071161:071151P:" #(member

   delete-duplicates))) delete-duplicates)

-	    disassemble #fn("?000\x891000.///\x8a1000I60O?14|282J?07001E534D:@30D421>82<220512305163:" #(disassemble

-  #fn("8000n320>DD62:" #(#fn(":000n220>?0421>?14EAK\x8022~423>r424F5162:" #(#fn(":000n10\\;36040[S3E07021514720O910KM63:73061:" #(princ

+	    disassemble #fn("?000\x891000.///\x8a1000I60O?14|282JD07001E53471504D:@30D422>82<230512405163:" #(disassemble

+  newline #fn("8000n320>DD62:" #(#fn(":000n220>?0421>?14EAK\x8022~423>r424F5162:" #(#fn(":000n10\\;36040[S3E07021514720O910KM63:73061:" #(princ

   "\n" disassemble print) print-val) #fn("<000n370921;3V04910El;3L04719217215152;3;04921182ML37023@4024751r5\x805126270512865:" #(princ

   >= 1- " >" "  " hex5 ":  " #fn(string) "\t") print-inst)

   #fn("7000n1702161:" #(princ "\t")) #fn(":000n2D01L3E0420>2122>O735351@\x19/:" #(#fn(";000n170Ar4523907150@30D4E920K\x8022~4AKMz00423>061:" #(>