shithub: femtolisp

Info  •  Files  •  Log  •  Branches

bootstrap

--- a/flisp.boot

+++ b/flisp.boot

@@ -78,11 +78,18 @@

 								 *input-stream*

 								 *stderr*

 								 *error-stream*) __init_globals)

+	  __rcscript #fn("8000n02021725161:" #(#fn("7000n12005138071061:D:" #(#fn(path.exists?)

+  load)) #fn("8000n1020c35021:022c3?0232425512662:232427512862:" #(unknown ""

+								   plan9 #fn(string)

+								   #fn(os.getenv)

+								   "home" "/lib/flisprc"

+								   "HOME" "/.flisprc"))

+					       *os-name*) __rcscript)

 	  __script #fn("7000n120>21}:" #(#fn("7000n070A61:" #(load))

 					 #fn("7000n170051421K61:" #(top-level-exception-handler

 								    #fn(exit)))) __script)

-	  __start #fn("8000n1705040=B3D00=w14Ow24730T51@E00w14Dw2474755147650427E61:" #(__init_globals

-  *argv* *interactive* __script princ *banner* repl #fn(exit)) __start)

+	  __start #fn("8000n1705040=B3D00=w14Ow24730T51@J00w14Dw247475514765047750428E61:" #(__init_globals

+  *argv* *interactive* __script princ *banner* __rcscript repl #fn(exit)) __start)

 	  abs #fn("7000n10EL3500U:0:" #() abs) any

 	  #fn("8000n21B;3D0401<51;I:047001=62:" #(any) any) arg-counts #table(null? 1  atom? 1  eq? 2  boolean? 1  function? 1  builtin? 1  = 2  aref 2  vector? 1  cdr 1  symbol? 1  cadr 1  pair? 1  set-car! 2  compare 2  < 2  fixnum? 1  div0 2  car 1  set-cdr! 2  number? 1  equal? 2  cons 2  bound? 1  eqv? 2  aset! 3  not 1)

 	  argc-error #fn("<000n2702102211Kl37023@402465:" #(error "compile error: "

@@ -158,7 +165,7 @@

   largc lvargc vargc argc compile-in ret values #fn(function) encode-byte-code

   bcode:code const-to-idx-vec)) filter keyword-arg?))

   #fn(length))) #fn(length))) make-code-emitter lastcdr lambda-vars filter #.pair?

-  lambda))) #0=#(#:g714 ()))

+  lambda))) #0=#(#:g721 ()))

 	  compile-for #fn(":000n57084513X07101O825447101O835447101O845447202362:742561:" #(1arg-lambda?

   compile-in emit for error "for: third form must be a 1-argument lambda") compile-for)

 	  compile-if #fn("<000n420>710517105183T728351738351B3;0748351@60755065:" #(#fn(";000n582DC>070AF9028364:82OC>070AF9028464:70AFO8254471A22053470AF902835449023<071A2352@:071A24153475A052470AF9028454475A162:" #(compile-in