diff options
| author | Arun Isaac | 2023-11-17 14:18:23 +0000 |
|---|---|---|
| committer | Arun Isaac | 2023-11-17 16:08:43 +0000 |
| commit | adb7d89709fabe14791fe9b570d9db3e993d43f6 (patch) | |
| tree | 778f88cc354d64912d24ad8a4d8b520242ec3b17 | |
| parent | b1cff95e0360f7db8391763bba334aaac595dd41 (diff) | |
| download | ccwl-adb7d89709fabe14791fe9b570d9db3e993d43f6.tar.gz ccwl-adb7d89709fabe14791fe9b570d9db3e993d43f6.tar.lz ccwl-adb7d89709fabe14791fe9b570d9db3e993d43f6.zip | |
ccwl: Recreate types using syntax.
* ccwl/ccwl.scm (type->syntax): New function. (key->output): Use type->syntax.
| -rw-r--r-- | ccwl/ccwl.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/ccwl/ccwl.scm b/ccwl/ccwl.scm index 5ae0761..0127b3c 100644 --- a/ccwl/ccwl.scm +++ b/ccwl/ccwl.scm @@ -138,6 +138,13 @@ compared using @code{equal?}." (primitive-type #''primitive-type))) +(define (type->syntax type) + "Return syntax to recreate @var{type}." + (if (array-type? type) + #`(make-array-type #,(type->syntax (array-type-member-type type))) + (with-syntax ((type (datum->syntax #f type))) + #''type))) + (define (input input-spec) "Return syntax to build an <input> object from INPUT-SPEC." (syntax-case input-spec () @@ -749,8 +756,7 @@ commands." #`(make-output #,(with-syntax ((id (datum->syntax #f (output-id output)))) #''id) - #,(with-syntax ((type (datum->syntax #f (output-type output)))) - #''type) + #,(type->syntax (output-type output)) #,(with-syntax ((binding (datum->syntax #f (output-binding output)))) #''binding) #,(output-source output) |