diff options
| author |  Peter McGoron
| 2026-03-09 20:37:18 -0400 |
|---|---|---|
| committer | Peter McGoron
| 2026-03-09 20:37:18 -0400 |
| commit | 60ba4f39dc9f1190f97451e5294f1475e4f14bdd (patch) | |
| tree | 393b5682ae83ead480d3492027771a91275a8440 | |
| parent | reorganize tests, use dead-simple test harness (diff) | |
testing with tr7
| -rw-r--r-- | lib/hascheme/base.sld | 28 | ||||
| -rw-r--r-- | lib/hascheme/case-lambda.sld | 4 |
2 files changed, 21 insertions, 11 deletions
diff --git a/lib/hascheme/base.sld b/lib/hascheme/base.sld index 40b7c76..1935b6c 100644 --- a/lib/hascheme/base.sld +++ b/lib/hascheme/base.sld @@ -1,12 +1,20 @@ (define-library (hascheme base) - (import (prefix (except (scheme base) - quote define-syntax syntax-rules - let-syntax letrec-syntax - let* letrec letrec* ... _) - r7rs:) - (only (scheme base) define-syntax syntax-rules quote - let* letrec letrec* ... _ let-syntax letrec-syntax) - (rename (hascheme prelude) + (cond-expand + (tr7 (import (prefix (except (scheme base) + quote define-syntax + let-syntax letrec-syntax + let* letrec letrec*) + r7rs) + (only (scheme base) define-syntax quote + let* letrec letrec* let-syntax letrec-syntax))) + (else (import (prefix (except (scheme base) + quote define-syntax syntax-rules + let-syntax letrec-syntax + let* letrec letrec* ... _) + r7rs:) + (only (scheme base) define-syntax syntax-rules quote + let* letrec letrec* ... _ let-syntax letrec-syntax)))) + (import (rename (hascheme prelude) (hs:lambda lambda) (hs:define define)) (hascheme eager) @@ -62,6 +70,6 @@ ;; Ports eof-object eof-object?) (cond-expand - ((not chicken) (export _ ... =>)) - (else)) + ((not chicken tr7) (export _ ... =>)) + (else)) (include "base.scm"))
\ No newline at end of file diff --git a/lib/hascheme/case-lambda.sld b/lib/hascheme/case-lambda.sld index cca9d42..a02169d 100644 --- a/lib/hascheme/case-lambda.sld +++ b/lib/hascheme/case-lambda.sld @@ -7,4 +7,6 @@ (define-syntax case-lambda (syntax-rules () ((_ (clause body ...) ...) - (r7rs:case-lambda (clause (delay-force (let () body ...))) ...))))))
\ No newline at end of file + (delay + (r7rs:case-lambda + (clause (delay-force (let () body ...))) ...)))))))
\ No newline at end of file |