summaryrefslogtreecommitdiffstats
path: root/sca-cpp/trunk/modules/scheme
diff options
context:
space:
mode:
Diffstat (limited to 'sca-cpp/trunk/modules/scheme')
-rw-r--r--sca-cpp/trunk/modules/scheme/json-value.cpp2
-rw-r--r--sca-cpp/trunk/modules/scheme/value-json.cpp2
-rw-r--r--sca-cpp/trunk/modules/scheme/value-xml.cpp2
3 files changed, 3 insertions, 3 deletions
diff --git a/sca-cpp/trunk/modules/scheme/json-value.cpp b/sca-cpp/trunk/modules/scheme/json-value.cpp
index d7ffc2b37b..4bdf8bd37f 100644
--- a/sca-cpp/trunk/modules/scheme/json-value.cpp
+++ b/sca-cpp/trunk/modules/scheme/json-value.cpp
@@ -36,7 +36,7 @@ int jsonValue() {
const js::JSContext cx;
const failable<list<value> > lv = json::readJSON(streamList(cin), cx);
if (!hasContent(lv)) {
- cerr << reason(lv);
+ cerr << reason(lv) << " : " << rcode(lv);
return 1;
}
cout << writeValue(content(lv));
diff --git a/sca-cpp/trunk/modules/scheme/value-json.cpp b/sca-cpp/trunk/modules/scheme/value-json.cpp
index 5045226db9..a8c875fcc8 100644
--- a/sca-cpp/trunk/modules/scheme/value-json.cpp
+++ b/sca-cpp/trunk/modules/scheme/value-json.cpp
@@ -36,7 +36,7 @@ int valueJSON() {
const js::JSContext cx;
failable<list<string> > s = json::writeJSON(readValue(cin), cx);
if (!hasContent(s)) {
- cerr << reason(s);
+ cerr << reason(s) << " : " << rcode(s);
return 1;
}
write(content(s), cout);
diff --git a/sca-cpp/trunk/modules/scheme/value-xml.cpp b/sca-cpp/trunk/modules/scheme/value-xml.cpp
index 7091d5c8ba..ff785899c6 100644
--- a/sca-cpp/trunk/modules/scheme/value-xml.cpp
+++ b/sca-cpp/trunk/modules/scheme/value-xml.cpp
@@ -35,7 +35,7 @@ namespace scheme {
int valueXML() {
failable<list<string> > s = writeXML(readValue(cin));
if (!hasContent(s)) {
- cerr << reason(s);
+ cerr << reason(s) << " : " << rcode(s);
return 1;
}
write(content(s), cout);