0. #lang racket
1.  
2. (require syntax/parse)
3.  
4. (define (syntax-split delimiter stx)
5.   (define-syntax-class delim
6.     (pattern delim:id #:when (free-identifier=? #'delim delimiter)))
7.   (syntax-parse stx
8.     [((~and elem (~not :delim)) ... delim:delim . rest)
9.      #`((elem ...) . #,(syntax-split delimiter #'rest))]
10.     [(elem ...)
11.      #'((elem ...))]))
12.  
13. (syntax-split #'|,| #'(1 + 1 |,| 5 + 1))
14. (syntax-split #'|,| #'(1 + 1))
15. (syntax-split #'|,| #'(1 + 1 |,| 3 * 5 |,| 25))

=>

#<syntax:2:0 ((1 + 1) (5 + 1))>

#<syntax:2:0 ((1 + 1))>

#<syntax:2:0 ((1 + 1) (3 * 5) (25))>