diff --git a/components/compiler/parser.cpp b/components/compiler/parser.cpp
index 896458e48..8d11c4086 100644
--- a/components/compiler/parser.cpp
+++ b/components/compiler/parser.cpp
@@ -148,6 +148,11 @@ namespace Compiler
         return false;
     }
 
+    bool Parser::parseComment (const std::string& comment, const TokenLoc& loc, Scanner& scanner)
+    {
+        return true;
+    }
+
     // Handle an EOF token.
     //
     // - Default-implementation: Report an error.
diff --git a/components/compiler/parser.hpp b/components/compiler/parser.hpp
index 221e7c2c9..4fec570e9 100644
--- a/components/compiler/parser.hpp
+++ b/components/compiler/parser.hpp
@@ -82,6 +82,13 @@ namespace Compiler
             ///
             /// - Default-implementation: Report an error.
 
+            virtual bool parseComment (const std::string& comment, const TokenLoc& loc,
+                Scanner& scanner);
+            ///< Handle comment token.
+            /// \return fetch another token?
+            ///
+            /// - Default-implementation: ignored (and return true).
+
             virtual void parseEOF (Scanner& scanner);
             ///< Handle EOF token.
             ///
diff --git a/components/compiler/scanner.cpp b/components/compiler/scanner.cpp
index 420fd8f7f..38a9265a1 100644
--- a/components/compiler/scanner.cpp
+++ b/components/compiler/scanner.cpp
@@ -88,6 +88,10 @@ namespace Compiler
         }
         else if (c==';')
         {
+            std::string comment;
+
+            comment += c;
+
             while (get (c))
             {
                 if (c=='\n')
@@ -95,11 +99,14 @@ namespace Compiler
                     putback (c);
                     break;
                 }
+                else
+                    comment += c;
             }
 
+            TokenLoc loc (mLoc);
             mLoc.mLiteral.clear();
 
-            return true;
+            return parser.parseComment (comment, loc, *this);
         }
         else if (isWhitespace (c))
         {