diff options
| author | Robby Zambito <contact@robbyzambito.me> | 2023-02-17 15:26:26 -0500 |
|---|---|---|
| committer | Robby Zambito <contact@robbyzambito.me> | 2023-02-17 15:26:26 -0500 |
| commit | 33a11464a8e346a08271a3c16be172ccb62af450 (patch) | |
| tree | 983da6ec3846785e81820710db0ec88879e0e5f9 | |
| parent | a792bd280110e961e9c6b3e78ecd386d637db3dc (diff) | |
Edit error messages
| -rw-r--r-- | lib/zambyte/meta/chibi.scm | 2 | ||||
| -rw-r--r-- | lib/zambyte/meta/json.sld | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/zambyte/meta/chibi.scm b/lib/zambyte/meta/chibi.scm index ba5a919..7318189 100644 --- a/lib/zambyte/meta/chibi.scm +++ b/lib/zambyte/meta/chibi.scm @@ -62,7 +62,7 @@ (call-with-values (lambda () (proc (car pair) (cdr pair))) (case-lambda ((key value) (cons key value)) - (_ (error "json-object-map: wrong return wrong number of values"))))) + (_ (error "json-object-map: proc did not return two values"))))) json)) (define json-list-map vector-map) diff --git a/lib/zambyte/meta/json.sld b/lib/zambyte/meta/json.sld index 448c4ec..a385f66 100644 --- a/lib/zambyte/meta/json.sld +++ b/lib/zambyte/meta/json.sld @@ -95,7 +95,7 @@ (let ((json (string->json str))) (parameterize ((json-key-not-found (lambda () - (error "key not found in json string when converting to a record" 'from-json-string)))) + (error "key not found in json string when converting to a record" 'type)))) (constructor (json-object-ref json 'fields) ...)))) (handle-field-declarations field-declarations) ...)))) |