diff options
| author |  Peter McGoron
| 2025-03-06 14:32:48 -0500 |
|---|---|---|
| committer | Peter McGoron
| 2025-03-06 14:32:48 -0500 |
| commit | 6763215c2c4bbfb3cae3273864be58bcc70ddac9 (patch) | |
| tree | 0267af0462bf0553bb42158761ec30394e4fc6a8 /lib | |
| parent | test overrides (diff) | |
better flags handling
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/SAHP.scm | 6 | ||||
| -rw-r--r-- | lib/SAHP/internal-common.scm | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lib/SAHP.scm b/lib/SAHP.scm index 1d17e45..125afb6 100644 --- a/lib/SAHP.scm +++ b/lib/SAHP.scm @@ -21,7 +21,7 @@ (define set-global-SAHP! (case-lambda ((SAHP type procedure) - (set-global-SAHP! SAHP type #f procedure)) + (set-global-SAHP! SAHP type '() procedure)) ((SAHP type flag procedure) (%SAHP-set (SAHP-global-scope (extract-SAHP-descriptor SAHP)) (list (list type flag procedure)))))) @@ -43,7 +43,7 @@ (define-syntax parameterize-SAHP (syntax-rules () ((_ ((SAHP (type value) ...) ...) body ...) - (parameterize-SAHP ((SAHP (type #f value) ...) ...) body ...)) + (parameterize-SAHP ((SAHP (type '() value) ...) ...) body ...)) ((_ ((SAHP (type flag value) ...) ...) body ...) (let ((param (SAHP-dynamic-scope-parameter (extract-SAHP-descriptor SAHP))) @@ -57,7 +57,7 @@ (define-syntax letrec-SAHP (syntax-rules () ((_ ((SAHP (type value) ...) ...) body ...) - (letrec-SAHP ((SAHP (type #f value) ...) ...) body ...)) + (letrec-SAHP ((SAHP (type '() value) ...) ...) body ...)) ((_ ((SAHP (type flag value) ...) ...) body ...) (let ((%SAHP (extract-SAHP-descriptor SAHP)) ...) (letrec ((SAHP (%SAHP/local-scope diff --git a/lib/SAHP/internal-common.scm b/lib/SAHP/internal-common.scm index c40be51..3bb0543 100644 --- a/lib/SAHP/internal-common.scm +++ b/lib/SAHP/internal-common.scm @@ -43,7 +43,7 @@ (flag SAHP-entry-flag)) (define (entry-overridable? entry) - (eq? (SAHP-entry-flag entry) 'overridable)) + (member 'overridable (SAHP-entry-flag entry))) (define (SAHP=? sahp1 sahp2) (eq? (SAHP-global-scope (extract-SAHP-descriptor sahp1)) |