diff options
Diffstat (limited to 'appl/lib')
| -rw-r--r-- | appl/lib/json.b | 4 | ||||
| -rw-r--r-- | appl/lib/vac.b | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/appl/lib/json.b b/appl/lib/json.b index 50e93b27..f4fdce14 100644 --- a/appl/lib/json.b +++ b/appl/lib/json.b @@ -279,9 +279,9 @@ writeval(out: ref Iobuf, o: ref JValue) raises(Badwrite) String => writestring(out, r.s); Int => - puts(out, string r.value); + puts(out, r.text()); Real => - puts(out, string r.value); + puts(out, r.text()); Object => # '{' [pair (',' pair)*] '}' putc(out, '{'); for(l := r.mem; l != nil; l = tl l){ diff --git a/appl/lib/vac.b b/appl/lib/vac.b index 0284fb1a..2ea78c12 100644 --- a/appl/lib/vac.b +++ b/appl/lib/vac.b @@ -1029,7 +1029,7 @@ p48(d: array of byte, i: int, v: big): int p64(d: array of byte, i: int, v: big): int { p32(d, i+0, int (v>>32)); - p32(d, i+0, int v); + p32(d, i+4, int v); return i+BIT64SZ; } |