diff options
| author | Robby Zambito <contact@robbyzambito.me> | 2023-02-13 16:45:12 -0500 |
|---|---|---|
| committer | Robby Zambito <contact@robbyzambito.me> | 2023-02-13 16:45:12 -0500 |
| commit | a55021b7c30c5e8dbd4750e3517b022a55c89de0 (patch) | |
| tree | 309fa475958f2de5e14f04f0146dd32ceef232fc | |
| parent | 93ccdcae3a23098454c8b6f93a6699b70ed34623 (diff) | |
Fixed issue in Gauche where object keys would never match
| -rw-r--r-- | lib/zambyte/meta/gauche.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/zambyte/meta/gauche.scm b/lib/zambyte/meta/gauche.scm index 34a755a..6f233bf 100644 --- a/lib/zambyte/meta/gauche.scm +++ b/lib/zambyte/meta/gauche.scm @@ -31,7 +31,7 @@ (define json->string construct-json-string) (define (json-object-ref json key) - (let ((pair (assoc (string->symbol key) json))) + (let ((pair (assoc key json))) (if pair (cdr pair) ((json-key-not-found))))) |