Merge pull request #398 from yamacir-kit/machine

Machine

Author: yamacir-kit

README.md

@@ -103,9 +103,9 @@ sudo rm -rf /usr/local/share/meevax
 
 | Target Name        | Description
 |:-------------------|:--
-| `all` (default)    | Build shared-library `libmeevax.0.4.40.so` and executable `meevax`.
+| `all` (default)    | Build shared-library `libmeevax.0.4.64.so` and executable `meevax`.
 | `test`             | Test executable `meevax`.
-| `package`          | Generate debian package `meevax_0.4.40_amd64.deb`.
+| `package`          | Generate debian package `meevax_0.4.64_amd64.deb`.
 | `install`          | Copy files into `/usr/local` __(1)__.
 | `install.deb`      | `all` + `package` + `sudo apt install <meevax>.deb`
 | `safe-install.deb` | `all` + `test` + `package` + `sudo apt install <meevax>.deb`
@@ -120,7 +120,7 @@ __(1)__ Meevax installed by `make install` cannot be uninstalled by the system's
 ## Usage
 
 ```
-Meevax Lisp System, version 0.4.40
+Meevax Lisp System, version 0.4.64
 
 Usage: meevax [OPTION...] [FILE...]
 

VERSION

@@ -1 +1 @@
-0.4.40
+0.4.64

basis/r4rs-essential.ss

@@ -221,8 +221,8 @@
            (if x #f #t))
 
          (define (boolean? x)
-           (or (eqv? x #t)
-               (eqv? x #f)))
+           (or (eq? x #t)
+               (eq? x #f)))
 
          (define (equal? x y)
            (if (and (pair? x)

include/meevax/kernel/boolean.hpp

@@ -23,24 +23,6 @@ namespace meevax
 {
 inline namespace kernel
 {
-  struct boolean
-  {
-    using value_type = bool;
-
-    const value_type value;
-
-    constexpr boolean(value_type const value)
-      : value { value }
-    {}
-
-    constexpr operator value_type() const noexcept
-    {
-      return value;
-    }
-  };
-
-  auto operator <<(std::ostream &, boolean const&) -> std::ostream &;
-
   let extern const t;
   let extern const f;