shithub: sl

Info  •  Files  •  Log  •  Branches

vec->list, list->vec: use apply

--- a/boot/sl.boot

+++ b/boot/sl.boot

@@ -334,7 +334,7 @@

 =5162:" #(λ

   proper-list? every sym? length> 255 length= #fn(length)) inlineable? 9)

             io-readall #fn("n1205021850524228561:" #(#fn(buffer)

-                      #fn(io->str)) io-readall 8)

+                      #fn(io->str)) io-readall 8)

 :" #(#fn(io-readuntil) #\newline) io-readline 7) io-readlines

             #fn("n17071062:" #(read-all-of io-readline) io-readlines 7) iota #fn("n17071062:" #(map-int

   identity) iota 7)

@@ -538,7 +538,7 @@

                 #fn(table-foldl)

                                                        #fn("n320A0163:" #(#fn(put!)) 8)) table-clone 9)

             table-invert #fn("n12050212285>1q053485:" #(#fn(table)

-                                  #fn(table-foldl)

+                                  #fn(table-foldl)

                      #fn("n320A1063:" #(#fn(put!)) 8)) table-invert 9)

             table-keys #fn("n12021q063:" #(#fn(table-foldl)

                                            #fn("n3082P:" 6)) table-keys 8)

--- a/src/system.sl

+++ b/src/system.sl

@@ -1032,10 +1032,10 @@

 ;;; vector functions

 (def (list->vec l)

-  (map 'vec identity l))

+  (apply vec l))

 (def (vec->list v)

-  (map 'list identity v))

+  (apply list v))

 ;;; table functions