diff options
| author |  Peter McGoron
| 2025-11-01 22:29:42 -0400 |
|---|---|---|
| committer | Peter McGoron
| 2025-11-01 22:29:42 -0400 |
| commit | 44e4fd1e1f914e5b307435769c8909da8a72aafb (patch) | |
| tree | 0c5e707c836f646229462adb08314ac8988e2d14 /lib/rewriters.r7rs.scm | |
| parent | add expect-to-fail (diff) | |
Big rewrite:
1. Rename to "cuprate".
2. Remove mutexes.
3. Move rewriters to other library.
4. Move the DTO out of the `test-info` parameter. They are now separate
parameters, with the expectation that the DTO will not change over
time. This significantly reduces the complexity of the code.
5. Use SRFI-146 for Chicken.
Diffstat (limited to 'lib/rewriters.r7rs.scm')
| -rw-r--r-- | lib/rewriters.r7rs.scm | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/lib/rewriters.r7rs.scm b/lib/rewriters.r7rs.scm deleted file mode 100644 index 3b6ba96..0000000 --- a/lib/rewriters.r7rs.scm +++ /dev/null @@ -1,37 +0,0 @@ -#| Copyright © 2025 Peter McGoron - | - | Permission is hereby granted, free of charge, to any person obtaining - | a copy of this software and associated documentation files (the - | “Software”), to deal in the Software without restriction, including - | without limitation the rights to use, copy, modify, merge, publish, - | distribute, sublicense, and/or sell copies of the Software, and to - | permit persons to whom the Software is furnished to do so, subject to - | the following conditions: - | - | The above copyright notice and this permission notice shall be included - | in all copies or substantial portions of the Software. - | - | THE SOFTWARE IS PROVIDED “AS IS”, WITHOUT WARRANTY OF ANY KIND, - | EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF - | MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN - | NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, - | DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR - | OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR - | THE USE OR OTHER DEALINGS IN THE SOFTWARE. - |# - -(begin - (define (default-on-pair pair) - (cons (test-rewrite (car pair)) - (test-rewrite (cdr pair)))) - (define (default-on-vector vec) - (vector-map test-rewrite vec)) - (define (default-on-error error) - (let ((msg (error-object-message error)) - (irritants (error-object-irritants error))) - (display (list msg irritants)) (newline) - (cons 'error (cons msg irritants)))) - (define default-rewriters - `((,pair? . ,default-on-pair) - (,vector? . ,default-on-vector) - (,error-object? . ,default-on-error))))
\ No newline at end of file |