diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-08-17 06:48:01 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-08-17 06:48:01 -0700 |
| commit | f396b4880f4a674ce6043de6ef3dc7f7d9d29a24 (patch) | |
| tree | 99f357d00f51f204e3938db30d55364d3f3cf90b /stdlib | |
| parent | bd63a83d32173ff7912c159f6f0cced2e7399a98 (diff) | |
| download | txr-f396b4880f4a674ce6043de6ef3dc7f7d9d29a24.tar.gz txr-f396b4880f4a674ce6043de6ef3dc7f7d9d29a24.tar.bz2 txr-f396b4880f4a674ce6043de6ef3dc7f7d9d29a24.zip | |
ffi: fix broken deffi support for variadic functions.
* stdlib/ffi.c (sys:analyze-argtypes): Add missing fallback case in
filtering loop. This wouldn't have happened if we had a ecaseql macro,
and used it. Or if we had coverage of this in tests.
* tests/017/variadic.tl, tests/017/variadic.expected: New files.
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/ffi.tl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/stdlib/ffi.tl b/stdlib/ffi.tl index e6d8d049..bf1c6111 100644 --- a/stdlib/ffi.tl +++ b/stdlib/ffi.tl @@ -64,7 +64,8 @@ ((float) 'double) ((be-float le-float) (compile-error form "variadic argument cannot be of type ~s" - vt)))))) + vt)) + (t vt))))) (list* (+ (len ftypes) (len vtypes)) (len ftypes) (append ftypes vtypes)))) |