diff options
| author |  Peter McGoron
| 2024-12-28 13:29:42 -0500 |
|---|---|---|
| committer | Peter McGoron
| 2024-12-28 13:29:42 -0500 |
| commit | 0852fa10ffe3f2ef821986b7842004b156d0f018 (patch) | |
| tree | 92444c7c6d54699b9e8c7e28e3e7cec5cab0b185 /mcgoron.iterator.exceptions.sld | |
| parent | convert to chicken (diff) | |
refactor tests, add working code for list
Diffstat (limited to '')
| -rw-r--r-- | mcgoron.iterator.exceptions.sld | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/mcgoron.iterator.exceptions.sld b/mcgoron.iterator.exceptions.sld index b989a6c..ce1b8db 100644 --- a/mcgoron.iterator.exceptions.sld +++ b/mcgoron.iterator.exceptions.sld @@ -21,7 +21,10 @@ non-integer-movement-exception non-integer-movement-exception? non-integer-movement-exception:spaces negative-movement-exception negative-movement-exception? - negative-movement-exception:spaces) + negative-movement-exception:spaces + improper-list-exception improper-list-exception? + improper-list-exception:idx + improper-list-exception:cdr) (begin (define-record-type <field-not-found-exception> (field-not-found-exception field iterator) @@ -35,5 +38,10 @@ (define-record-type <negative-movement-exception> (negative-movement-exception spaces) negative-movement-exception? - (spaces negative-movement-exception:spaces)))) + (spaces negative-movement-exception:spaces)) + (define-record-type <improper-list-exception> + (improper-list-exception idx cdr) + improper-list-exception? + (idx improper-list-exception:idx) + (cdr improper-list-exception:cdr)))) |