Adds block comments for scheme as defined in R6RS.

(http://www.r6rs.org/final/html/r6rs/r6rs-Z-H-7.html#node_sec_4.2.3)

1 files changed, 8 insertions, 0 deletions

diff --git a/pygments/lexers/functional.py b/pygments/lexers/functional.py
index 16d9bad8..efe4d240 100644
--- a/pygments/lexers/functional.py
+++ b/pygments/lexers/functional.py
@@ -1002,6 +1002,8 @@ class SchemeLexer(RegexLexer):
             # the comments - always starting with semicolon
             # and going to the end of the line
             (r';.*$', Comment.Single),
+            # multi-line comment
+            (r'#\|', Comment.Multiline, 'multiline-comment'),
 
             # whitespaces - usually not relevant
             (r'\s+', Text),
@@ -1050,6 +1052,12 @@ class SchemeLexer(RegexLexer):
             (r'(\(|\))', Punctuation),
             (r'(\[|\])', Punctuation),
         ],
+        'multiline-comment' : [
+            (r'#\|', Comment.Multiline, '#push'),
+            (r'\|#', Comment.Multiline, '#pop'),
+            (r'[^|#]+', Comment.Multiline),
+            (r'[|#]', Comment.Multiline),
+        ],
     }