Merge pull request #57 from mnacamura/srfi-152

Add SRFI 152 keywords

Author: mnacamura

README.md

@@ -100,6 +100,7 @@ in Gauche are not strict (e.g., `1/pi` in `math.const` module).
   - SRFI 25
   - SRFI 26
   - SRFI 27
+  - SRFI 152
 
 ### [0.2.1][v0.2.1] (2021-06-28)
 

doc/r7rs-syntax.txt

@@ -78,6 +78,7 @@ Unreleased             * Add missing keywords for Gauche 0.9.10
                          - `SRFI 25`
                          - `SRFI 26`
                          - `SRFI 27`
+                         - `SRFI 152`
 0.2.1    2021-06-28    * Fix highlighting for `r7rsVariable`
                        * Fix highlighting for `@vector-comparator`
 0.2      2021-06-27    * Fix Gauche shebang to accept `<file-start>#!<newline>`

syntax/gauche.vim

@@ -2272,7 +2272,6 @@ syn keyword r7rsFunction reverse-bitvector->vector/bool
 syn keyword r7rsFunction reverse-list->bitvector
 syn keyword r7rsFunction reverse-list->c32vector
 syn keyword r7rsFunction reverse-list->f16vector
-syn keyword r7rsFunction reverse-list->string
 syn keyword r7rsFunction reverse-vector->bitvector
 syn keyword r7rsFunction revrese-bitvector->vector/int
 syn keyword r7rsFunction rfc822-atom
@@ -2620,9 +2619,7 @@ syn keyword r7rsFunction string->u32vector
 syn keyword r7rsFunction string->u8vector
 syn keyword r7rsFunction string->uninterned-symbol
 syn keyword r7rsFunction string->words
-syn keyword r7rsFunction string-any
 syn keyword r7rsFunction string-append/shared
-syn keyword r7rsFunction string-break
 syn keyword r7rsFunction string-byte-ref
 syn keyword r7rsFunction string-ci<
 syn keyword r7rsFunction string-ci<=
@@ -2632,15 +2629,10 @@ syn keyword r7rsFunction string-ci>
 syn keyword r7rsFunction string-ci>=
 syn keyword r7rsFunction string-compare
 syn keyword r7rsFunction string-compare-ci
-syn keyword r7rsFunction string-concatenate
-syn keyword r7rsFunction string-concatenate-reverse
 syn keyword r7rsFunction string-concatenate-reverse/shared
 syn keyword r7rsFunction string-concatenate/shared
-syn keyword r7rsFunction string-contains
 syn keyword r7rsFunction string-contains-ci
-syn keyword r7rsFunction string-contains-right
 syn keyword r7rsFunction string-copy-immutable
-syn keyword r7rsFunction string-count
 syn keyword r7rsFunction string-cursor->index
 syn keyword r7rsFunction string-cursor-back
 syn keyword r7rsFunction string-cursor-diff
@@ -2656,63 +2648,27 @@ syn keyword r7rsFunction string-cursor>=?
 syn keyword r7rsFunction string-cursor>?
 syn keyword r7rsFunction string-cursor?
 syn keyword r7rsFunction string-delete
-syn keyword r7rsFunction string-drop
-syn keyword r7rsFunction string-drop-right
-syn keyword r7rsFunction string-drop-while
-syn keyword r7rsFunction string-drop-while-right
-syn keyword r7rsFunction string-every
 syn keyword r7rsFunction string-fast-indexable?
-syn keyword r7rsFunction string-filter
-syn keyword r7rsFunction string-fold
-syn keyword r7rsFunction string-fold-right
 syn keyword r7rsFunction string-for-each-index
 syn keyword r7rsFunction string-hash-ci
 syn keyword r7rsFunction string-immutable?
 syn keyword r7rsFunction string-incomplete->complete
 syn keyword r7rsFunction string-incomplete?
-syn keyword r7rsFunction string-index
 syn keyword r7rsFunction string-index->cursor
-syn keyword r7rsFunction string-index-right
-syn keyword r7rsFunction string-join
 syn keyword r7rsFunction string-kmp-partial-search
 syn keyword r7rsFunction string-list->file
-syn keyword r7rsFunction string-null?
-syn keyword r7rsFunction string-pad
-syn keyword r7rsFunction string-pad-right
 syn keyword r7rsFunction string-parse-final-start+end
 syn keyword r7rsFunction string-parse-start+end
 syn keyword r7rsFunction string-prefix-ci?
-syn keyword r7rsFunction string-prefix-length
 syn keyword r7rsFunction string-prefix-length-ci
-syn keyword r7rsFunction string-prefix?
-syn keyword r7rsFunction string-remove
-syn keyword r7rsFunction string-replace
-syn keyword r7rsFunction string-replicate
 syn keyword r7rsFunction string-reverse
 syn keyword r7rsFunction string-scan
 syn keyword r7rsFunction string-scan-right
-syn keyword r7rsFunction string-segment
 syn keyword r7rsFunction string-size
-syn keyword r7rsFunction string-skip
-syn keyword r7rsFunction string-skip-right
-syn keyword r7rsFunction string-span
-syn keyword r7rsFunction string-split
 syn keyword r7rsFunction string-suffix-ci?
-syn keyword r7rsFunction string-suffix-length
 syn keyword r7rsFunction string-suffix-length-ci
-syn keyword r7rsFunction string-suffix?
-syn keyword r7rsFunction string-tabulate
-syn keyword r7rsFunction string-take
-syn keyword r7rsFunction string-take-right
-syn keyword r7rsFunction string-take-while
-syn keyword r7rsFunction string-take-while-right
 syn keyword r7rsFunction string-tokenize
 syn keyword r7rsFunction string-tr
-syn keyword r7rsFunction string-trim
-syn keyword r7rsFunction string-trim-both
-syn keyword r7rsFunction string-trim-right
-syn keyword r7rsFunction string-unfold
-syn keyword r7rsFunction string-unfold-right
 syn keyword r7rsFunction string<
 syn keyword r7rsFunction string<=
 syn keyword r7rsFunction string<>

syntax/srfi.vim

@@ -1,6 +1,6 @@
 " Vim syntax file
 " Language: Scheme
-" Last Change: 2021-06-30
+" Last Change: 2021-07-04
 " Author: Mitsuhiro Nakamura <m.nacamura@gmail.com>
 " URL: https://github.com/mnacamura/vim-r7rs-syntax
 " License: MIT
@@ -76,6 +76,22 @@ syn keyword r7rsFunction char-title-case? char-titlecase string-titlecase
 " SRFI 145 {{{1
 syn keyword r7rsSyntax assume
 
+" SRFI 152 {{{1
+
+syn keyword r7rsFunction string-null? string-every string-any string-tabulate
+syn keyword r7rsFunction string-unfold string-unfold-right reverse-list->string
+syn keyword r7rsFunction string-take string-take-right string-drop string-drop-right
+syn keyword r7rsFunction string-pad string-pad-right string-trim string-trim-right string-trim-both
+syn keyword r7rsFunction string-replace
+syn keyword r7rsFunction string-prefix-length string-suffix-length string-prefix? string-suffix?
+syn keyword r7rsFunction string-index string-index-right string-skip string-skip-right
+syn keyword r7rsFunction string-contains string-contains-right string-take-while
+syn keyword r7rsFunction string-take-while-right string-drop-while string-drop-while-right
+syn keyword r7rsFunction string-break string-span string-concatenate string-concatenate-reverse
+syn keyword r7rsFunction string-join
+syn keyword r7rsFunction string-fold string-fold-right string-count string-filter string-remove
+syn keyword r7rsFunction string-replicate string-segment string-split
+
 " Highlights {{{1
 
 hi def link r7rsShebang r7rsComment