shithub: femtolisp

Info  •  Files  •  Log  •  Branches

load: return void

--- a/aliases.scm

+++ b/aliases.scm

@@ -261,4 +261,3 @@

 (define (read-u8) (io-read *input-stream* 'uint8))

 (define modulo mod)

-(void)

--- a/compiler.lsp

+++ b/compiler.lsp

@@ -877,5 +877,3 @@

                       (aset! v (+ x 1) (cdar lst))

                       (loop2 (cdr lst))))))

             v)))))

-

-(void)

--- a/examples/bq.scm

+++ b/examples/bq.scm

@@ -118,5 +118,3 @@

 	     (list cons ''unquote (bq-process0 (cdr x) (- d 1)))))

 	(else

 	 (cons 'nconc (map bq-bracket x)))))

-

-(void)

--- a/examples/cps.lsp

+++ b/examples/cps.lsp

@@ -274,8 +274,6 @@

           (cons 'a (reset (cons 'b (shift f (cons 1 (f (f (cons 'c ())))))))))

          '(a 1 b b c)))

-(void)

-

 #|

 todo:

 * tag lambdas that accept continuation arguments, compile computed

--- a/flisp.boot

+++ b/flisp.boot

@@ -286,7 +286,7 @@

   :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("6000n170061:" #(eval) load-process) lookup-sym

+	    load-process #fn("6000n17005147160:" #(eval void) 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))

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

 (define (load filename)

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