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/SAHP.scm | |
| parent | test overrides (diff) | |
better flags handling
Diffstat (limited to 'lib/SAHP.scm')
| -rw-r--r-- | lib/SAHP.scm | 6 |
1 files changed, 3 insertions, 3 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 |