From 2ba326becc1c9546cf028a8ddb0ff8307c6e4eff Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Mon, 25 Mar 2024 02:16:32 +0900 Subject: Add newlines for readablity. --- readers/article.rkt | 2 ++ 1 file changed, 2 insertions(+) (limited to 'readers/article.rkt') 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")) -- cgit v1.2.3