Skip to content

Commit

Permalink
Update procedure exact? to built-in
Browse files Browse the repository at this point in the history
Signed-off-by: yamacir-kit <[email protected]>
  • Loading branch information
yamacir-kit committed Oct 2, 2023
1 parent fec8935 commit d450893
Show file tree
Hide file tree
Showing 3 changed files with 5 additions and 13 deletions.
6 changes: 3 additions & 3 deletions README.md
Original file line number Diff line number Diff line change
Expand Up @@ -99,7 +99,7 @@ Procedures for each standard are provided by the following R7RS-style libraries:
cmake -B build -DCMAKE_BUILD_TYPE=Release
cd build
make package
sudo apt install build/meevax_0.5.6_amd64.deb
sudo apt install build/meevax_0.5.7_amd64.deb
```

or
Expand Down Expand Up @@ -131,9 +131,9 @@ sudo rm -rf /usr/local/share/meevax

| Target Name | Description
|-------------|-------------
| `all` | Build shared-library `libmeevax.0.5.6.so` and executable `meevax`
| `all` | Build shared-library `libmeevax.0.5.7.so` and executable `meevax`
| `test` | Test executable `meevax`
| `package` | Generate debian package `meevax_0.5.6_amd64.deb`
| `package` | Generate debian package `meevax_0.5.7_amd64.deb`
| `install` | Copy files into `/usr/local` directly

## Usage
Expand Down
2 changes: 1 addition & 1 deletion VERSION
Original file line number Diff line number Diff line change
@@ -1 +1 @@
0.5.6
0.5.7
10 changes: 1 addition & 9 deletions basis/r4rs.ss
Original file line number Diff line number Diff line change
Expand Up @@ -51,6 +51,7 @@
real?
rational?
integer?
exact?
= < > <= >=
+ * - /
abs
Expand Down Expand Up @@ -331,15 +332,6 @@
(car alist)
(assoc (cdr alist)))))))

(define (exact? z)
(define (exact-complex? x)
(and (imaginary? x)
(exact? (real-part x))
(exact? (imag-part x))))
(or (exact-complex? z)
(ratio? z)
(exact-integer? z)))

(define (inexact? z)
(define (inexact-complex? x)
(and (imaginary? x)
Expand Down

0 comments on commit d450893

Please sign in to comment.