From 18eb79b3add75c9441aa671bdad9924889e69a0a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 24 Jul 2020 15:48:39 +0200 Subject: Reordering in (c cpp). --- module/c/cpp.scm | 12 ++++++------ 1 file 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) -- cgit v1.2.3