shithub: sl

Info  •  Files  •  Log  •  Branches

oops. do it at the right place

--- a/flisp.boot

+++ b/flisp.boot

@@ -283,10 +283,11 @@

 	    #fn("9000n2701E52340q:0<710=1K~52P:" #(<= list-head) list-head) list-ref #fn("7000n2700152<:" #(list-tail) list-ref)

 	    list-tail #fn("8000n2701E523400:710=1K~62:" #(<= list-tail) list-tail) list?

 	    #fn("6000n10V;I@040B;3904700=61:" #(list?) list?) load #fn("9000n120071522285>123850>2{:" #(#fn(file)

-  :read #fn("9000n0\x8d\x8a48420A84>2_484<^1\x8d\x8d\x8d63:" #(#fn("9000n320A51IB0F<21A5107215163:23A51472161:" #(#fn(io-eof?)

-  #fn(read) load-process #fn(io-close))))) #fn("8000n120A5142122F0e361:" #(#fn(io-close)

-									   #fn(raise) load-error))) load)

-	    load-process #fn("6000n17005147160:" #(eval void) load-process) lookup-sym

+  :read #fn("9000n0\x8d\x8a48420A84>2_484<^1\x8d\x8d\x8d63:" #(#fn("9000n320A51IG0F<21A510721514735063:24A5147215147360:" #(#fn(io-eof?)

+  #fn(read) load-process void #fn(io-close))))) #fn("8000n120A5142122F0e361:" #(#fn(io-close)

+										#fn(raise)

+										load-error))) load)

+	    load-process #fn("6000n170061:" #(eval) load-process) lookup-sym

 	    #fn(";000n31J5020:1<2108752883808288P:7201=82KM63:" #(global #fn(assq) lookup-sym) lookup-sym)

 	    lower-define #fn(";000n1\x8d2021?55140H;I804720513400:0<23C<0747505161:760<513K02728e10Te185051e17905164:2:74062:" #(#1#

   #fn("=000n170051B3N071051B3=02270051P@7073051@60745075855176855186J5087:278687e328298652P:" #(cddr

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

--- a/system.lsp

+++ b/system.lsp

@@ -933,7 +933,7 @@

 (define (eval x) ((compile-thunk (expand x))))

-(define (load-process x) (eval x) (void))

+(define (load-process x) (eval x))

 (define (load filename)

   (let ((F (file filename :read)))

@@ -942,10 +942,11 @@

        (if (not (io-eof? F))

            (next (read F)

                  prev

-                 (load-process E))

+                 (begin (load-process E) (void)))

            (begin (io-close F)

                   ; evaluate last form in almost-tail position

-                  (load-process E))))

+                  (load-process E)

+                  (void))))

      (λ (e)

        (io-close F)

        (raise `(load-error ,filename ,e))))))