}
return false;
}
+
+// 宣言のコメントを参照してください。
+bool term::DatumComment::operator()(reader::IReader* reader,
+ unsigned int* size) {
+ unicode::UniString code(unicode::Convert(
+ reader->Peek(kDatumCommentReadSize)));
+ if (code == unicode::Convert("#;")) {
+ *size = kDatumCommentReadSize;
+ return true;
+ }
+ return false;
+}
+
+// 宣言のコメントを参照してください。
+bool term::SpecialComment::operator()(reader::IReader* reader,
+ unsigned int* size) {
+ unicode::UniString code(unicode::Convert(
+ reader->Peek(kSpecialCommentReadSize)));
+ if (code == unicode::Convert("#!r6rs")) {
+ *size = kSpecialCommentReadSize;
+ return true;
+ }
+ return false;
+}