diff options
Diffstat (limited to 'lib/zambyte')
| -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) ...)))) |