Update procedure list to built-in

Signed-off-by: yamacir-kit <httperror@404-notfound.jp>

README.md

@@ -74,7 +74,7 @@ Subset of R7RS-small.
 cmake -B build -DCMAKE_BUILD_TYPE=Release
 cd build
 make package
-sudo apt install build/meevax_0.4.809_amd64.deb
+sudo apt install build/meevax_0.4.810_amd64.deb
 ```
 
 or
@@ -106,9 +106,9 @@ sudo rm -rf /usr/local/share/meevax
 
 | Target Name | Description
 |-------------|-------------
-| `all`       | Build shared-library `libmeevax.0.4.809.so` and executable `meevax`
+| `all`       | Build shared-library `libmeevax.0.4.810.so` and executable `meevax`
 | `test`      | Test executable `meevax`
-| `package`   | Generate debian package `meevax_0.4.809_amd64.deb`
+| `package`   | Generate debian package `meevax_0.4.810_amd64.deb`
 | `install`   | Copy files into `/usr/local` directly
 
 ## Usage

VERSION

@@ -1 +1 @@
-0.4.809
+0.4.810

basis/r4rs-essential.ss

@@ -76,9 +76,7 @@
      SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
   |#
 
-  (begin (define (list . xs) xs) ; Chibi-Scheme
-
-         (define-syntax cond ; Chibi-Scheme
+  (begin (define-syntax cond ; Chibi-Scheme
            (er-macro-transformer
              (lambda (form rename compare)
                (if (null? (cdr form))
@@ -207,7 +205,7 @@
                                      (car xs))))
                   (reverse (cons x xs))))))
 
-         (define-syntax let
+         (define-syntax let ; Chibi-Scheme
            (er-macro-transformer
              (lambda (form rename compare)
                (if (identifier? (cadr form))

src/kernel/boot.cpp

@@ -452,6 +452,11 @@ inline namespace kernel
         return xs[0].is<null>();
       });
 
+      library.define<accessor>("list", [](let const& xs) -> auto const&
+      {
+        return xs;
+      });
+
       library.define<function>("make-list", [](let const& xs)
       {
         return make_list(xs[0].as<exact_integer>(), 1 < length(xs) ? xs[1] : f);