diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-21 16:04:56 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-07-21 17:28:19 +0200 |
| commit | 0e3df321ab2fce795bdc6b9aeb92724733cf8ee0 (patch) | |
| tree | 8370e465f2b16f46f623f3e77eef4b1be2219f92 /module/c/cpp-types.scm | |
| parent | Merge call-with-tmpfile and diffs for testrunner. (diff) | |
| download | calp-0e3df321ab2fce795bdc6b9aeb92724733cf8ee0.tar.gz calp-0e3df321ab2fce795bdc6b9aeb92724733cf8ee0.tar.xz | |
Major work on parser.
Diffstat (limited to 'module/c/cpp-types.scm')
| -rw-r--r-- | module/c/cpp-types.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/c/cpp-types.scm b/module/c/cpp-types.scm index 6dad061e..bf51d009 100644 --- a/module/c/cpp-types.scm +++ b/module/c/cpp-types.scm @@ -86,7 +86,8 @@ ;; NOTE q-string tokens are never produced by the lexer, ;; since they instead are treated as regular strings (define (q-string-token? token) - (string-token? token)) + (cond ((string-token? token) + (lambda (a . _) a) => (lambda (_ . a) (apply values a))))) (define (make-string-literal parts) (typecheck parts (list-of (or string? list?))) |