diff options
| -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)) |