replace LIST with list.

Issue #33.

demo/maze/solve.scm

@@ -66,7 +66,7 @@
       ;; (printf "adding boundary walls...\n")
       (set! G (add-boundary-walls))
       ;; (printf "done.\n")
-      (search 0 0 (LIST 0))
+      (search 0 0 (list 0))
       '() ;; failure
       )))
 

demo/maze/svg.scm

@@ -69,7 +69,7 @@
     (for-map k v (pj.get)
       (polyline v.path)))
   ;; draw the boundary
-  (polyline* (LIST {x=0 y=0} {x=m y=0} {x=m y=n} {x=0 y=n} {x=0 y=0}))
+  (polyline* (list {x=0 y=0} {x=m y=0} {x=m y=n} {x=0 y=n} {x=0 y=0}))
   (printf "<text x=\"40\" y=\"" (int (+ 20 (T n))) "\" class=\"small\">"
           (int m) "x" (int n)
           " seed " (int *random-seed*) "</text>\n")
@@ -86,7 +86,7 @@
 
 (define alternating-color
   (let ((i -1)
-        (colors (LIST "red" "orange" "yellow" "green" "blue" "indigo" "violet")))
+        (colors (list "red" "orange" "yellow" "green" "blue" "indigo" "violet")))
     (lambda ()
       (set! i (mod (+ i 1) 7))
       (nth colors i)
@@ -127,7 +127,7 @@
         (revmap (tree/empty)))
 
     (define (add-line p0 p1)
-      (add-path {s=p0 e=p1 path=(LIST p0 p1)}))
+      (add-path {s=p0 e=p1 path=(list p0 p1)}))
 
     (define (add-path path0)
       (match (tree/member fwdmap magic-cmp path0.e) with

demo/parse/antlr2irken/antlr2irken.scm

@@ -158,7 +158,7 @@
 
 (define p-rules
   (parse:nt 'rules (rules rule))
-  -> (append (p-rules rules) (LIST (p-rule rule)))
+  -> (append (p-rules rules) (list (p-rule rule)))
   (parse:nt 'rules (rule))
   -> (list:cons (p-rule rule) (list:nil))
   x -> (p-error x)
@@ -191,9 +191,9 @@
 
 (define p-seq
   (parse:nt 'seq (seq ebn0))
-  -> (append (p-seq seq) (LIST (p-ebn0 ebn0)))
+  -> (append (p-seq seq) (list (p-ebn0 ebn0)))
   (parse:nt 'seq (ebn0))
-  -> (LIST (p-ebn0 ebn0))
+  -> (list (p-ebn0 ebn0))
   x -> (p-error x)
   )
 
@@ -281,9 +281,9 @@
       (rule:parse
        name
        (exp:or
-        (LIST
+        (list
          (exp:cat
-          (LIST (exp:name name) exp))
+          (list (exp:name name) exp))
          exp)
         )))
 
@@ -328,11 +328,11 @@
 
     (define (expand-nullables exps)
       (define maybe-exp
-        (exp:? e) -> (LIST (maybe:no) (maybe:yes e))
-        exp       -> (LIST (maybe:yes exp))
+        (exp:? e) -> (list (maybe:no) (maybe:yes e))
+        exp       -> (list (maybe:yes exp))
         )
       (define recur
-        ()        -> (LIST '())
+        ()        -> (list '())
         (hd . tl) -> (let ((hd0 (maybe-exp hd)) ;; (list (maybe exp))
                            (tl0 (recur tl))     ;; (list (list exp))
                            (r '()))
@@ -356,7 +356,7 @@
     ;; replace exp with a list of exp (implied cat)
     (define remove-outer-cat
       (exp:cat es) -> es
-      exp          -> (LIST exp)
+      exp          -> (list exp)
       )
 
     (define (process-alt exp)
@@ -376,7 +376,7 @@
 (define (convert-rules rules)
   (define exp->alts
     (exp:or alts) -> alts
-    exp           -> (LIST exp)
+    exp           -> (list exp)
     )
   (let ((fifo (queue/make))
         (result '()))

doom/dns.scm

@@ -29,7 +29,7 @@
 (define (DNST t name val) {name=name t=t val=val})
 
 (define dnstype-table
-  (LIST
+  (list
    (DNST  (dnstype:a)      "a"      1)
    (DNST  (dnstype:ns)     "ns"     2)
    (DNST  (dnstype:cname)  "cname"  5)
@@ -356,7 +356,7 @@
 
 (define (tcp-enc-size-prefix len)
   (list->string
-   (LIST (ascii->char (>> len 8))
+   (list (ascii->char (>> len 8))
          (ascii->char (logand #xff len)))))
 
 (define (tcp-dec-size-prefix s)

doom/http/hpack.scm

@@ -365,7 +365,7 @@
         (:tuple probe0 #f)
         -> (let (((probe1 both1) (get-dynamic-index name val)))
              ;;(printf "get-index both1=" (bool both1) " ")
-             ;;(printn (LIST probe0 probe1))
+             ;;(printn (list probe0 probe1))
              (cond (both1
                     ;; both present in dynamic
                     (:tuple (adjust probe1) #t))

doom/http/html.scm

@@ -92,7 +92,7 @@
 
 ;; (define sexp-css
 ;;   (string-join
-;;    (LIST
+;;    (list
 ;;     "pre { line-height: 125%; }"
 ;;     "body  { background: #f8f8f8; }"
 ;;     "body .c { color: #408080; font-style: italic }"

doom/http/websocket.scm

@@ -106,11 +106,11 @@
       (let ((head (logior (<< opcode 8) (if fin? #x8000 #x0000)))
             (dlen (string-length data))
             (pkt (cond ((< dlen 126)
-                        (LIST (pack-uint 2 (logior head dlen)) data))
+                        (list (pack-uint 2 (logior head dlen)) data))
                        ((< dlen (<< 1 16))
-                        (LIST (pack-uint 2 (logior head 126)) (pack-uint 2 dlen) data))
+                        (list (pack-uint 2 (logior head 126)) (pack-uint 2 dlen) data))
                        ((< dlen (<< 1 32))
-                        (LIST (pack-uint 2 (logior head 127)) (pack-uint 8 dlen) data))
+                        (list (pack-uint 2 (logior head 127)) (pack-uint 8 dlen) data))
                        (else
                         (raise (:Websocket/TooMuchData dlen))))))
         ;; XXX rope interface someday.
@@ -131,7 +131,7 @@
 
     (let (((uri hmap) (parse-header (header-generator)))
           (key (tree/get hmap string-compare "sec-websocket-key"))
-          (khash (b64-encode (sha1 (list-generator (LIST (first key) magic)))))
+          (khash (b64-encode (sha1 (list-generator (list (first key) magic)))))
           (reply (format
                   "HTTP/1.1 101 Switching Protocols\r\n"
                   "Upgrade: websocket\r\n"

doom/s2n.scm

@@ -203,7 +203,7 @@
           (buffer/get! ibuf n)
           (let ((have (- ibuf.end ibuf.pos))
                 (left (- n have))
-                (parts (LIST (buffer/get! ibuf have))))
+                (parts (list (buffer/get! ibuf have))))
             (while (> left 0)
               (let ((recvd (recv0)))
                 (when (= recvd 0)

doom/socket.scm

@@ -87,7 +87,7 @@
           (buffer/get! ibuf n)
           (let ((have (- ibuf.end ibuf.pos))
                 (left (- n have))
-                (parts (LIST (buffer/get! ibuf have))))
+                (parts (list (buffer/get! ibuf have))))
             (while (> left 0)
               (let ((recvd (loop-nb-read sock.fd (sock/recv sock ibuf))))
                 (when (= recvd 0)

doom/tls/tls13.scm

@@ -36,11 +36,11 @@
 
 ;; [the remaining three are aes-128 gcm & ccm]
 (define suite-priority-list
-  (LIST (cipher-suite:chacha20-poly1305-sha256)
+  (list (cipher-suite:chacha20-poly1305-sha256)
         (cipher-suite:aes-256-gcm-sha384)))
 
 (define kex-priority-list
-  (LIST (named-group:x25519)
+  (list (named-group:x25519)
         (named-group:x448)))
 
 ;; XXX maybe need a record to hold all these params (and include socket buffer sizes)
@@ -134,7 +134,7 @@
                () -> (raise (:TLS/Alert (tls-alert-desc:no-application-protocol) "no matching ALPN"))
                (alpn . rest)
                -> (if (member? alpn client-alpns string=?)
-                      (push! extensions-to-push (tlsext:alpn (LIST alpn)))
+                      (push! extensions-to-push (tlsext:alpn (list alpn)))
                       (loop rest))))
         ;; XXX should this be a policy decision?
         _ -> (raise (:TLS/Alert (tls-alert-desc:no-application-protocol) "no ALPN extension present"))
@@ -165,7 +165,7 @@
             (sh {random = hrr-magic
                  sessid = ch.sessid
                  suite = suite
-                 exts = (LIST (tlsext:supported-versions (LIST version)) ;; only one
+                 exts = (list (tlsext:supported-versions (list version)) ;; only one
                               (tlsext:hrr-key-share (named-group->int group)))})
             ;; note: hello-retry-request is just a magic server-hello
             (hrr (pack-hsk (tls-hsk-type:server-hello) (pack-server-hello sh))))
@@ -227,7 +227,7 @@
             (sh {random = (RNG 32)
                  sessid = ch.sessid
                  suite = suite
-                 exts = (LIST (tlsext:supported-versions (LIST version)) ;; only one
+                 exts = (list (tlsext:supported-versions (list version)) ;; only one
                               (tlsext:key-share {group=(named-group->int kex.group) kex=(kex.get-pub)}))})
             (shared-key (kex.gen-shared client-share))
             (server-hello (pack-hsk (tls-hsk-type:server-hello) (pack-server-hello sh)))

ffi/gen/clextab.scm

@@ -420,7 +420,7 @@
       (t412 (rle (48 1) (10 149) (7 1) (26 149) 1 150 (2 1) 149 1 (4 149) 497 (21 149) (133 1)))
       (t413 (rle (61 1) 500 (62 1) 501 (131 1)))
         )
-     (list->vector (LIST t0 t1 t2 t1 t3 t4 t1 t5 t5 t1 t6 t7 t8 t5 t9 t10 t11 t12 t13 t14 t15 t16 t17 t18 t18 t19 t20 t21 t22 t23 t23 t24 t25 t26 t27 t23 t28 t29 t30 t31 t32 t33 t34 t35 t36 t37 t37 t38 t39 t40 t41 t42 t43 t44 t45 t46 t47 t48 t49 t50 t51 t52 t53 t52 t54 t55 t56 t57 t58 t57 t59 t1 t60 t1 t1 t61 t62 t1 t63 t64 t62 t65 t66 t67 t68 t69 t70 t71 t72 t73 t74 t74 t1 t1 t75 t1 t76 t1 t1 t1 t77 t1 t1 t1 t78 t79 t1 t80 t81 t82 t83 t84 t85 t85 t86 t85 t87 t1 t88 t80 t89 t90 t91 t92 t93 t94 t95 t96 t97 t97 t98 t99 t100 t101 t100 t102 t1 t1 t103 t104 t1 t1 t105 t1 t106 t1 t107 t1 t1 t108 t109 t110 t111 t112 t113 t114 t115 t116 t117 t118 t1 t1 t119 t1 t120 t121 t122 t123 t124 t125 t126 t108 t127 t108 t128 t129 t130 t131 t108 t132 t133 t134 t108 t135 t136 t137 t138 t139 t140 t141 t142 t143 t144 t145 t146 t108 t147 t148 t149 t150 t151 t152 t108 t153 t154 t155 t156 t157 t108 t158 t159 t160 t161 t162 t163 t164 t165 t166 t167 t168 t169 t170 t171 t172 t173 t174 t175 t176 t177 t178 t179 t180 t181 t182 t183 t184 t185 t186 t108 t187 t188 t189 t190 t191 t192 t193 t194 t195 t196 t197 t108 t198 t199 t200 t201 t202 t108 t203 t204 t205 t206 t207 t208 t209 t210 t211 t108 t212 t213 t214 t215 t216 t217 t218 t219 t220 t221 t222 t223 t224 t225 t226 t108 t227 t228 t229 t230 t231 t108 t232 t233 t234 t235 t236 t237 t238 t108 t239 t240 t241 t242 t243 t244 t245 t246 t247 t248 t108 t249 t250 t251 t252 t253 t254 t255 t256 t257 t258 t259 t108 t260 t261 t262 t263 t264 t265 t266 t267 t268 t108 t269 t270 t271 t272 t273 t274 t275 t276 t277 t278 t279 t280 t281 t282 t283 t284 t285 t108 t286 t287 t288 t289 t290 t1 t291 t292 t293 t294 t295 t296 t297 t298 t299 t300 t301 t108 t302 t303 t304 t305 t108 t306 t307 t308 t108 t309 t310 t311 t312 t313 t108 t314 t315 t316 t317 t108 t318 t319 t320 t321 t322 t323 t108 t324 t325 t326 t327 t328 t329 t330 t108 t331 t332 t108 t333 t334 t335 t336 t108 t337 t338 t339 t340 t341 t108 t342 t343 t344 t108 t345 t108 t346 t347 t348 t349 t350 t351 t352 t353 t354 t355 t356 t357 t358 t359 t108 t360 t361 t362 t363 t364 t365 t366 t367 t108 t368 t369 t370 t371 t372 t373 t374 t375 t376 t377 t108 t378 t379 t380 t381 t108 t382 t383 t384 t108 t385 t386 t387 t388 t108 t389 t390 t391 t392 t393 t394 t108 t395 t396 t397 t398 t399 t108 t400 t401 t402 t403 t404 t405 t406 t407 t408 t108 t409 t410 t411 t412 t108 t1 t413 t1 t1 t1 t1))))
+     (list->vector (list t0 t1 t2 t1 t3 t4 t1 t5 t5 t1 t6 t7 t8 t5 t9 t10 t11 t12 t13 t14 t15 t16 t17 t18 t18 t19 t20 t21 t22 t23 t23 t24 t25 t26 t27 t23 t28 t29 t30 t31 t32 t33 t34 t35 t36 t37 t37 t38 t39 t40 t41 t42 t43 t44 t45 t46 t47 t48 t49 t50 t51 t52 t53 t52 t54 t55 t56 t57 t58 t57 t59 t1 t60 t1 t1 t61 t62 t1 t63 t64 t62 t65 t66 t67 t68 t69 t70 t71 t72 t73 t74 t74 t1 t1 t75 t1 t76 t1 t1 t1 t77 t1 t1 t1 t78 t79 t1 t80 t81 t82 t83 t84 t85 t85 t86 t85 t87 t1 t88 t80 t89 t90 t91 t92 t93 t94 t95 t96 t97 t97 t98 t99 t100 t101 t100 t102 t1 t1 t103 t104 t1 t1 t105 t1 t106 t1 t107 t1 t1 t108 t109 t110 t111 t112 t113 t114 t115 t116 t117 t118 t1 t1 t119 t1 t120 t121 t122 t123 t124 t125 t126 t108 t127 t108 t128 t129 t130 t131 t108 t132 t133 t134 t108 t135 t136 t137 t138 t139 t140 t141 t142 t143 t144 t145 t146 t108 t147 t148 t149 t150 t151 t152 t108 t153 t154 t155 t156 t157 t108 t158 t159 t160 t161 t162 t163 t164 t165 t166 t167 t168 t169 t170 t171 t172 t173 t174 t175 t176 t177 t178 t179 t180 t181 t182 t183 t184 t185 t186 t108 t187 t188 t189 t190 t191 t192 t193 t194 t195 t196 t197 t108 t198 t199 t200 t201 t202 t108 t203 t204 t205 t206 t207 t208 t209 t210 t211 t108 t212 t213 t214 t215 t216 t217 t218 t219 t220 t221 t222 t223 t224 t225 t226 t108 t227 t228 t229 t230 t231 t108 t232 t233 t234 t235 t236 t237 t238 t108 t239 t240 t241 t242 t243 t244 t245 t246 t247 t248 t108 t249 t250 t251 t252 t253 t254 t255 t256 t257 t258 t259 t108 t260 t261 t262 t263 t264 t265 t266 t267 t268 t108 t269 t270 t271 t272 t273 t274 t275 t276 t277 t278 t279 t280 t281 t282 t283 t284 t285 t108 t286 t287 t288 t289 t290 t1 t291 t292 t293 t294 t295 t296 t297 t298 t299 t300 t301 t108 t302 t303 t304 t305 t108 t306 t307 t308 t108 t309 t310 t311 t312 t313 t108 t314 t315 t316 t317 t108 t318 t319 t320 t321 t322 t323 t108 t324 t325 t326 t327 t328 t329 t330 t108 t331 t332 t108 t333 t334 t335 t336 t108 t337 t338 t339 t340 t341 t108 t342 t343 t344 t108 t345 t108 t346 t347 t348 t349 t350 t351 t352 t353 t354 t355 t356 t357 t358 t359 t108 t360 t361 t362 t363 t364 t365 t366 t367 t108 t368 t369 t370 t371 t372 t373 t374 t375 t376 t377 t108 t378 t379 t380 t381 t108 t382 t383 t384 t108 t385 t386 t387 t388 t108 t389 t390 t391 t392 t393 t394 t108 t395 t396 t397 t398 t399 t108 t400 t401 t402 t403 t404 t405 t406 t407 t408 t108 t409 t410 t411 t412 t108 t1 t413 t1 t1 t1 t1))))
 
 (define finals-c #(
   'not-final

ffi/gen/cparse.scm

@@ -273,7 +273,7 @@
       (match (length types) (last types) with
         1 type -> type
         n (ctype2:pointer sub)
-        -> (ctype2:pointer (collapse (append (butlast types) (LIST sub))))
+        -> (ctype2:pointer (collapse (append (butlast types) (list sub))))
         n type -> (collapse types)
         ))
 
@@ -298,7 +298,7 @@
     (define p-decl
       (parse:nt 'declaration (declSpecs Semi))
       -> (let (((_ base-type) (p-declarationSpecifiers declSpecs)))
-           (:tuple #f (LIST (:tuple base-type '%anonymous))))
+           (:tuple #f (list (:tuple base-type '%anonymous))))
       (parse:nt 'declaration (declSpecs initDeclaratorList Semi))
       -> (let (((typedef? base-type) (p-declarationSpecifiers declSpecs)))
            (:tuple typedef? (p-initDeclaratorList base-type '() initDeclaratorList)))
@@ -574,7 +574,7 @@
     ;; parse -> (list declarator)
     (define p-structDeclaration
       (parse:nt 'structDeclaration (sQL Semi))
-      -> (LIST (declarator:t (p-specifierQualifierList sQL) (maybe:no)))
+      -> (list (declarator:t (p-specifierQualifierList sQL) (maybe:no)))
       (parse:nt 'structDeclaration (sQL sDL Semi))
       -> (let ((base-type (p-specifierQualifierList sQL)))
            (p-structDeclaratorList base-type '() sDL))

ffi/gen/genffi.scm

@@ -138,7 +138,7 @@
 
   (for-list struct structs
     (when-maybe type0 (tree/member types.structs magic-cmp (:tuple struct #t))
-      (let ((type1 (map-type-path M (LIST struct) type0)))
+      (let ((type1 (map-type-path M (list struct) type0)))
         ;; replace the entry
         (tree/delete! types.structs magic-cmp (:tuple struct #t))
         (tree/insert! types.structs magic-cmp (:tuple struct #t) type1)
@@ -462,8 +462,8 @@
     (stdio/close ofile)
     (let ((cpp-path (format base "_iface1.cpp"))
           (dm-path (format base "_iface1.dm")))
-      (compile (append iface.cflags (LIST "-E" opath ">" cpp-path)))
-      (compile (append iface.cflags (LIST "-dM" "-E" opath ">" dm-path)))
+      (compile (append iface.cflags (list "-E" opath ">" cpp-path)))
+      (compile (append iface.cflags (list "-dM" "-E" opath ">" dm-path)))
       (genc2 iface base cpp-path dm-path))
     (%exit #f 0)
     ))
@@ -655,11 +655,11 @@
           (write-sigs iface types renames (lambda (s) (stdio/write iface-file s)))
           (stdio/close iface-file)
           ;; compile iface2
-          (compile (append iface.lflags (append iface.cflags (LIST opath "-o" iface2))))
+          (compile (append iface.lflags (append iface.cflags (list opath "-o" iface2))))
           ;; append to interface
           (system (format iface2 " >> " iface-path))
           ;; compile iface1
-          (compile (append iface.cflags (LIST (format iface1 ".c") "-o" iface1)))
+          (compile (append iface.cflags (list (format iface1 ".c") "-o" iface1)))
           ;; append to interface
           (system (format iface1 " >> " iface-path))
           (cleanup base)
@@ -693,7 +693,7 @@
     (printf "base = " base "\n")
     (stdio/write ofile (format "#include <" path ">\n"))
     (stdio/close ofile)
-    (compile (LIST "-E" opath ">" cpp))
+    (compile (list "-E" opath ">" cpp))
     (set! *verbose-flag* #t)
     (let ((types (process-cpp-file cpp)))
       (if *typedefs-flag*

lang/0.scm

@@ -9,5 +9,5 @@
   (:sym symbol)
   )
 
-(LIST (thing:int 1) (thing:str "two") (thing:sym 'three))
-
+(list (thing:int 1) (thing:str "two") (thing:sym 'three))
+

lib/asn1/ber.scm

@@ -129,7 +129,7 @@
       n acc -> (l256 (>> n 8) (list:cons (logand #xff n) acc))
       )
     (if (< n 128)
-        (LIST n)
+        (list n)
         (let ((n0 (l256 n '())))
           (list:cons (logior #x80 (length n0)) n0))))
 
@@ -190,7 +190,7 @@
 
   (define (encode-oid emit vals)
     (let ((b0 (match vals with
-                (v0 v1 . tl) -> (make-oid tl (LIST (+ (* 40 v0) v1)))
+                (v0 v1 . tl) -> (make-oid tl (list (+ (* 40 v0) v1)))
                 _            -> (raise (:BER/BadOID vals))))
           (r0 (ints->string b0))
           (l0 (string-length r0)))
@@ -316,7 +316,7 @@
 
   (define (decode-oid in len)
     (let ((b0 (in.byte)))
-      (let loop ((vals (LIST (mod b0 40) (/ b0 40)))
+      (let loop ((vals (list (mod b0 40) (/ b0 40)))
                  (lensum 1))
         (if (>= lensum len)
             (ber:OID (reverse vals))

lib/combinatorics.scm

@@ -14,11 +14,11 @@
     (makegen emit
       (match n al with
         2 (a b)
-        -> (begin (emit (LIST a b)) (emit (LIST b a)))
+        -> (begin (emit (list a b)) (emit (list b a)))
         n (hd . tl)
         -> (for sub (perm (- n 1) tl)
              (for-range i n ;; 0 (1 2) => (0 1 2) (1 0 2) (1 2 0)
-               (emit (append (slice sub 0 i) (LIST hd) (slice sub i (- n 1))))))
+               (emit (append (slice sub 0 i) (list hd) (slice sub i (- n 1))))))
         n l
         -> #u
         )))
@@ -38,7 +38,7 @@
 
 (define (combinations xs k)
   (if (<= k 0)
-      (LIST (list:nil))
+      (list (list:nil))
       (match xs with
         () -> (list:nil)
         (hd . tl)

lib/crypto/hkdf.scm

@@ -23,7 +23,7 @@
               (hmac1 (hmac0.make PRK)))
           (hmac1.update Tn)
           (hmac1.update info)
-          (hmac1.update (list->string (LIST (int->char (+ 1 i)))))
+          (hmac1.update (list->string (list (int->char (+ 1 i)))))
           (set! Tn (hmac1.final))
           (push! T Tn)))
       ;; OKM

lib/crypto/sig.scm

@@ -87,9 +87,9 @@
 (define (pad-and-annotate digest mlen)
   (let ((diglen (string-length digest))
         (asn1 (ber:SEQUENCE
-               (LIST
+               (list
                 (ber:SEQUENCE
-                 (LIST (ber:OID '(2 16 840 1 101 3 4 2 1))
+                 (list (ber:OID '(2 16 840 1 101 3 4 2 1))
                        (ber:NULL)))
                 (ber:STRING (asn1string:OCTET) digest))))
         (T (asn1->ber asn1))