diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-10-14 21:17:34 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-10-16 23:28:34 +0200 |
| commit | 418092c5d25ce8a262d206e7fe691733663b379c (patch) | |
| tree | 4f06116e067501d86adb4d0e04a869291c041a64 /module/c | |
| parent | Change gettext '_' to 'G_'. (diff) | |
| download | calp-418092c5d25ce8a262d206e7fe691733663b379c.tar.gz calp-418092c5d25ce8a262d206e7fe691733663b379c.tar.xz | |
Fix minor errors.
Diffstat (limited to 'module/c')
| -rw-r--r-- | module/c/lex.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/module/c/lex.scm b/module/c/lex.scm index 34e52d88..977f497f 100644 --- a/module/c/lex.scm +++ b/module/c/lex.scm @@ -65,16 +65,16 @@ (define-peg-pattern char all (and (ignore "'") (or escaped-char peg-any) (ignore "'"))) +;; whitespace +(define-peg-pattern ws none + (or " " " " "\n")) + (define-peg-pattern* operator all `(or ,@(map symbol->string symbol-binary-operators) ,@(map (lambda (op) `(and ,(symbol->string op) ws)) wordy-binary-operators))) -;; whitespace -(define-peg-pattern ws none - (or " " " " "\n")) - ;; space (for when whitespace is optional) (define-peg-pattern sp none (* ws)) |