diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-24 15:48:39 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-24 15:48:43 +0200 |
| commit | 18eb79b3add75c9441aa671bdad9924889e69a0a (patch) | |
| tree | 312216ee28d86a2c9256a31b8f9a39b2b4996e52 | |
| parent | Remove some unused procedures. (diff) | |
| download | calp-18eb79b3add75c9441aa671bdad9924889e69a0a.tar.gz calp-18eb79b3add75c9441aa671bdad9924889e69a0a.tar.xz | |
Reordering in (c cpp).
| -rw-r--r-- | module/c/cpp.scm | 12 |
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) |