From 3a485b2fcded22730065c53f51982f97b7dc47e8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 18 Aug 2020 16:15:52 +0200
Subject: CPP, rename 'atom?' to 'immediate?'.

---
 module/c/cpp.scm | 6 +++---
 1 file 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))
-- 
cgit v1.2.3