diff options
Diffstat (limited to 'module/c/cpp-util.scm')
| -rw-r--r-- | module/c/cpp-util.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/module/c/cpp-util.scm b/module/c/cpp-util.scm index 633c5a0c..9674317b 100644 --- a/module/c/cpp-util.scm +++ b/module/c/cpp-util.scm @@ -117,12 +117,14 @@ ((null? (cdr tokens)) tokens) ((string-token? (car tokens)) (lambda (a . _) a) - => (lambda parts-a + => (lambda (prefix-a . parts-a) (cond ((string-token? (cadr tokens)) (lambda (a . _) a) - => (lambda parts-b (merge-string-literals - (cons (make-string-literal (append parts-a parts-b)) - (cddr tokens))))) + => (lambda (prefix-b . parts-b) + (merge-string-literals + ;; TODO check validity of prefixes + (cons (make-string-literal (cons prefix-a (append parts-a parts-b))) + (cddr tokens))))) (else (cons (car tokens) (merge-string-literals (cdr tokens))))))) (else (cons (car tokens) (merge-string-literals (cdr tokens)))))) |