1 files changed, 6 insertions, 6 deletions
diff --git a/module/c/cpp.scm b/module/c/cpp.scm
index 2fe842c8..f3839739 100644
--- a/module/c/cpp.scm
+++ b/module/c/cpp.scm
@@ -28,20 +28,20 @@
     (error "Line dosen't match" header-line)))
 
 
+(define-public (do-funcall function arguments)
+  (if (list? arguments)
+      (apply function arguments)
+      (function arguments)))
+
 (define symb-map
   `((,(symbol #\|) . logior)
-    (funcall . (@@ ,(module-name (current-module)) do-funcall))
+    (funcall . (@ (c cpp) do-funcall))
     (&& . and)
     (& . logand)
     (== . =)
     (!= . (negate =))
     ))
 
-(define (do-funcall function arguments)
-  (if (list? arguments)
-      (apply function arguments)
-      (function arguments)))
-
 (define-public (replace-symbols tree dict)
   (if (not (list? tree))
       (or (assoc-ref dict tree) tree)