summaryrefslogtreecommitdiff
path: root/appl/lib
diff options
context:
space:
mode:
authorCharles.Forsyth <devnull@localhost>2008-01-30 09:43:09 +0000
committerCharles.Forsyth <devnull@localhost>2008-01-30 09:43:09 +0000
commit279831cd5663f49afc0f72634e6e022b45cb9877 (patch)
treefe8dd16956571b87c7658a89a7b19df178810dfa /appl/lib
parentad01d857a3ec149074830330005eb4c786d3330c (diff)
20080130-0949
Diffstat (limited to 'appl/lib')
-rw-r--r--appl/lib/json.b1
-rw-r--r--appl/lib/ubfa.b1
2 files changed, 2 insertions, 0 deletions
diff --git a/appl/lib/json.b b/appl/lib/json.b
index 3e86fa4c..09947a7d 100644
--- a/appl/lib/json.b
+++ b/appl/lib/json.b
@@ -534,6 +534,7 @@ JValue.get(v: self ref JValue, mem: string): ref JValue
for(l := r.mem; l != nil; l = tl l)
if((hd l).t0 == mem)
return (hd l).t1;
+ return nil;
* =>
return nil;
}
diff --git a/appl/lib/ubfa.b b/appl/lib/ubfa.b
index bfbf21ca..8de0a8f3 100644
--- a/appl/lib/ubfa.b
+++ b/appl/lib/ubfa.b
@@ -349,6 +349,7 @@ UValue.eq(o: self ref UValue, v: ref UValue): int
Int =>
return r.value == s.value;
}
+ return 0;
Tuple =>
pick s := v {
Tuple =>