diff options
Diffstat (limited to 'src/algebra/mkfunc.spad.pamphlet')
| -rw-r--r-- | src/algebra/mkfunc.spad.pamphlet | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/algebra/mkfunc.spad.pamphlet b/src/algebra/mkfunc.spad.pamphlet index 3bb17da5..1770e7c8 100644 --- a/src/algebra/mkfunc.spad.pamphlet +++ b/src/algebra/mkfunc.spad.pamphlet @@ -158,6 +158,7 @@ InputForm(): convert([op, first args, binary(op, rest args)]$List(%)) tuplify l == + empty? l => convert(nil$List(%)) empty? rest l => convert first l conv concat(convert("tuple"::Symbol), [convert x for x in l]$List(%)) |