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