diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-18 16:15:52 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-18 18:50:56 +0200 |
| commit | 3a485b2fcded22730065c53f51982f97b7dc47e8 (patch) | |
| tree | 0eb5049dcb845e828e5c4e2bcd4ce71915bb1dc4 | |
| parent | EDIT_MODE correctly exported from view/calendar. (diff) | |
| download | calp-3a485b2fcded22730065c53f51982f97b7dc47e8.tar.gz calp-3a485b2fcded22730065c53f51982f97b7dc47e8.tar.xz | |
CPP, rename 'atom?' to 'immediate?'.
| -rw-r--r-- | module/c/cpp.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/c/cpp.scm b/module/c/cpp.scm index f3839739..062e50f5 100644 --- a/module/c/cpp.scm +++ b/module/c/cpp.scm @@ -48,8 +48,8 @@ (map (lambda (node) (replace-symbols node dict)) tree))) -(define (atom? x) - ;; NOT symbol +;; Direct values. Lisp also has quoted symbols in this group. +(define (immediate? x) (or (number? x) (char? x) (string? x))) @@ -78,7 +78,7 @@ (lset-difference eq? (remove primitive? - (remove atom? + (remove immediate? (flatten (if (list? right) right (list right))))) proc-args)) |