diff options
| author | Robby Zambito <contact@robbyzambito.me> | 2023-02-14 20:53:47 -0500 |
|---|---|---|
| committer | Robby Zambito <contact@robbyzambito.me> | 2023-02-14 20:53:47 -0500 |
| commit | d02631bf16aaaa33212edccfdf304dda94f5ff0f (patch) | |
| tree | 518f03a39c367538f84cb1ff81a1f2d0842aad2b /lib | |
| parent | 0a792043c71a7ed457a2dd65930c5c75d1976783 (diff) | |
Fix Gauche implementation of json-object-ref to reflect string->symbol change.
Add tests to catch this error.
Diffstat (limited to 'lib')
| -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 88093e5..7f0a852 100644 --- a/lib/zambyte/meta/gauche.scm +++ b/lib/zambyte/meta/gauche.scm @@ -35,7 +35,7 @@ (define json->string construct-json-string) (define (json-object-ref json key) - (let ((pair (assoc key json))) + (let ((pair (assoc (symbol->string key) json))) (if pair (cdr pair) ((json-key-not-found))))) |