diff options
Diffstat (limited to 'readers/article.rkt')
| -rw-r--r-- | readers/article.rkt | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/readers/article.rkt b/readers/article.rkt index 8f06b95..687adcc 100644 --- a/readers/article.rkt +++ b/readers/article.rkt @@ -12,8 +12,10 @@ (call/cc (lambda ([k : (-> String Nothing)]) (unless (hash? jse) (k "must be a hash")) + (define id (hash-ref jse 'id (thunk (k "id not found")))) (unless (string? id) (k "id must be a string")) + (define timestamp (let ([timestamp (hash-ref jse 'timestamp (thunk (k "timestamp not found")))]) (unless (string? timestamp) (k "timestamp must be a string")) |