Fixed: test case for scheme

demo/kitchen-sink/doclist.js

@@ -90,7 +90,7 @@ var docs = {
     "docs/latex.tex": {name: "LaTeX", wrapped: true},
     "docs/less.less": "LESS",
     "docs/lisp.lisp": "Lisp",
-    "docs/scheme.scheme": "Scheme",
+    "docs/scheme.scm": "Scheme",
     "docs/liquid.liquid": "Liquid",
     "docs/lua.lua": "Lua",
     "docs/lucene.lucene": "Lucene",

demo/kitchen-sink/docs/scheme.scm

@@ -3,14 +3,11 @@
     for CD"
    (prompt-read "Title" 1.53 1 2/4 1.7 1.7e0 2.9E-4 +42 -7 #b001 #b001/100 #o777 #O777 #xabc55 #c(0 -5.6))
    (prompt-read "Artist")
-   (or (parse-integer (prompt-read "Rating") #:junk-allowed t) 0)
+   (or (parse-integer (prompt-read "Rating") #:junk-allowed #t) 0)
   (if x (format #t "yes") (format #f "no") ;and here comment
   ) 
   ;; second line comment
   '(+ 1 2)
-  (define-syntax get-line
-    (syntax-rules ()
-      ((_ x) x)))                ; nonsense, just a highlight test
   (position-if-not char-set:whitespace line #:start beg))
   (quote (privet 1 2 3))
   '(hello world)

lib/ace/mode/_test/tokens_scheme.json

@@ -1,10 +1,10 @@
-[
+[[
    "start",
   ["text","("],
   ["storage.type.function-type.scheme","define"],
-  ["text"," "],
+  ["text"," ("],
-  ["entity.name.function.scheme","prompt-for-cd"],
+  ["identifier","prompt-for-cd"],
-  ["text"," ()"]
+  ["text",")"]
 ],[
    "start",
   ["text","   "],
@@ -19,9 +19,7 @@
 ],[
    "start",
   ["text","   ("],
-  ["identifier","prompt"],
+  ["identifier","prompt-read"],
-  ["text","-"],
-  ["identifier","read"],
   ["text"," "],
   ["string","\"Title\""],
   ["text"," "],
@@ -43,23 +41,19 @@
   ["text"," "],
   ["constant.numeric","-7"],
   ["text"," "],
-  ["punctuation.definition.constant.character.scheme","#"],
+  ["constant.numeric","#b001"],
-  ["constant.character.scheme","b001"],
   ["text"," "],
-  ["punctuation.definition.constant.character.scheme","#"],
+  ["constant.numeric","#b001"],
-  ["constant.character.scheme","b001/100"],
+  ["text","/"],
+  ["constant.numeric","100"],
   ["text"," "],
-  ["punctuation.definition.constant.character.scheme","#"],
+  ["constant.numeric","#o777"],
-  ["constant.character.scheme","o777"],
   ["text"," "],
-  ["punctuation.definition.constant.character.scheme","#"],
+  ["constant.numeric","#O777"],
-  ["constant.character.scheme","O777"],
   ["text"," "],
-  ["punctuation.definition.constant.character.scheme","#"],
+  ["constant.numeric","#xabc55"],
-  ["constant.character.scheme","xabc55"],
   ["text"," "],
-  ["punctuation.definition.constant.character.scheme","#"],
+  ["identifier","#c"],
-  ["constant.character.scheme","c"],
   ["text","("],
   ["constant.numeric","0"],
   ["text"," "],
@@ -68,34 +62,24 @@
 ],[
    "start",
   ["text","   ("],
-  ["identifier","prompt"],
+  ["identifier","prompt-read"],
-  ["text","-"],
-  ["identifier","read"],
   ["text"," "],
   ["string","\"Artist\""],
-  ["text"," &"],
-  ["identifier","rest"],
   ["text",")"]
 ],[
    "start",
   ["text","   ("],
   ["keyword.operator","or"],
   ["text"," ("],
-  ["identifier","parse"],
+  ["identifier","parse-integer"],
-  ["text","-"],
-  ["identifier","integer"],
   ["text"," ("],
-  ["identifier","prompt"],
+  ["identifier","prompt-read"],
-  ["text","-"],
-  ["identifier","read"],
   ["text"," "],
   ["string","\"Rating\""],
-  ["text",") :"],
+  ["text",") "],
-  ["identifier","junk"],
+  ["punctuation.definition.constant.character.scheme","#:junk-allowed"],
-  ["text","-"],
-  ["identifier","allowed"],
   ["text"," "],
-  ["support.function","t"],
+  ["constant.language","#t"],
   ["text",") "],
   ["constant.numeric","0"],
   ["text",")"]
@@ -108,25 +92,20 @@
   ["text"," ("],
   ["support.function","format"],
   ["text"," "],
-  ["support.function","#t"],
+  ["constant.language","#t"],
   ["text"," "],
   ["string","\"yes\""],
   ["text",") ("],
   ["support.function","format"],
   ["text"," "],
-  ["support.function","#t"],
+  ["constant.language","#f"],
   ["text"," "],
   ["string","\"no\""],
-  ["text"," "],
-  ["constant.language","#f"],
   ["text",") "],
   ["comment",";and here comment"]
 ],[
    "start",
-  ["text","  ) "],
+  ["text","  ) "]
-  ["constant.numeric","0xFFLL"],
-  ["text"," "],
-  ["constant.numeric","-23ull"]
 ],[
    "start",
   ["text","  "],
@@ -141,28 +120,15 @@
 ],[
    "start",
   ["text","  ("],
-  ["identifier","define"],
+  ["identifier","position-if-not"],
   ["text"," "],
-  ["punctuation.definition.variable.scheme","*"],
+  ["identifier","char-set"],
-  ["variable.other.global.scheme","lines"],
+  ["text",":"],
-  ["punctuation.definition.variable.scheme","*"],
+  ["identifier","whitespace"],
-  ["text",")                "],
-  ["comment","; list of all lines"]
-],[
-   "start",
-  ["text","  ("],
-  ["identifier","position"],
-  ["text","-"],
-  ["keyword.control","if"],
-  ["text","-"],
-  ["identifier","not"],
-  ["text"," "],
-  ["punctuation.definition.constant.character.scheme","#"],
-  ["constant.character.scheme","'sys::whitespacep"],
   ["text"," "],
   ["identifier","line"],
-  ["text"," :"],
+  ["text"," "],
-  ["identifier","start"],
+  ["punctuation.definition.constant.character.scheme","#:start"],
   ["text"," "],
   ["identifier","beg"],
   ["text","))"]
@@ -206,8 +172,8 @@
   ["text",")"]
 ],[
    "start",
-  ["text","  (:"],
+  ["text","  ("],
-  ["identifier","use"],
+  ["punctuation.definition.constant.character.scheme","#:use"],
   ["text"," "],
   ["string","\"aaaa\""],
   ["text",")"]
@@ -235,8 +201,7 @@
   ["text","))"]
 ],[
    "start",
-  ["text","  ) "],
+  ["text","  ) "]
-  ["support.function","LAmbDa"]
 ],[
    "start"
 ],[
@@ -245,4 +210,6 @@
   ["string","\"asdad"],
   ["constant.character.escape.scheme","\\0"],
   ["string","eqweqe\""]
-]]
+],[
+   "start"
+]]