shithub: femtolisp

Info  •  Files  •  Log  •  Branches

remove unused *whitespace* define

--- a/flisp.boot

+++ b/flisp.boot

@@ -50,9 +50,8 @@

   let #fn(map) #.list #fn(copy-list) #fn("8000n22001e3:" #(set!))

   unwind-protect begin #fn("8000n22001e3:" #(set!))))

   #fn(map) #.car #.cadr #fn("6000n12060:" #(#fn(gensym))))))

-	    *whitespace* "\t\n\v\f\r \u0085  ᠎           \u2028\u2029  　" 1+

-	    #fn("7000n10KM:" #() 1+) 1- #fn("7000n10K\x80:" #() 1-)

-	    1arg-lambda? #fn("8000n10B;3^040<20Q;I8040<20Q;3J040=B;3B040TB;3:04710TK62:" #(λ

+	    1+ #fn("7000n10KM:" #() 1+) 1-

+	    #fn("7000n10K\x80:" #() 1-) 1arg-lambda? #fn("8000n10B;3^040<20Q;I8040<20Q;3J040=B;3B040TB;3:04710TK62:" #(λ

   length=) 1arg-lambda?)

 	    <= #fn("7000n210L;IB0470051;380470151S:" #(nan?) <=) >

 	    #fn("7000n210L:" #() >) >= #fn("7000n201L;IB0470051;380470151S:" #(nan?) >=)

--- a/system.lsp

+++ b/system.lsp

@@ -678,11 +678,6 @@

 (define (string-tail s n) (string-sub s n))

-(define *whitespace*

-  (string-encode #array(rune 9 10 11 12 13 32 133 160 5760 6158 8192

-			      8193 8194 8195 8196 8197 8198 8199 8200

-			      8201 8202 8232 8233 8239 8287 12288)))

-

 (define (string-trim s at-start at-end)

   (define (trim-start s chars i L)

     (if (and (< i L) (string-find chars (string-char s i)))