diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2016-06-06 21:14:42 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2016-06-06 21:14:42 -0700 |
commit | 4ab49152980d3b9626d294af7d8ee9c296c09943 (patch) | |
tree | d8fdfabc9959c7bbc1225121e80e66cf47111dc5 | |
parent | 265746e8cfedd7efed194f968500c041b2af20af (diff) | |
download | txr-4ab49152980d3b9626d294af7d8ee9c296c09943.tar.gz txr-4ab49152980d3b9626d294af7d8ee9c296c09943.tar.bz2 txr-4ab49152980d3b9626d294af7d8ee9c296c09943.zip |
Handle sequence structs in toseq.
* lib.c (toseq): Handle OBJP case, and
implement behavior for struct objects that
have a car method.
-rw-r--r-- | lib.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -691,6 +691,10 @@ val toseq(val seq) case CONS: case LCONS: return nullify(seq); + case COBJ: + if (structp(seq) && maybe_slot(seq, car_s)) + return nullify(seq); + /* fallthrough */ default: return cons(seq, nil); } |