From 1976980d4a272fb7fc3694c734bfc6825edfc721 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 23 Jun 2022 03:23:44 +0200 Subject: Centralize (almost) all exports to :export in define-module. --- module/c/operators.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'module/c/operators.scm') diff --git a/module/c/operators.scm b/module/c/operators.scm index f6fa3da9..ab1b3e7c 100644 --- a/module/c/operators.scm +++ b/module/c/operators.scm @@ -1,4 +1,7 @@ -(define-module (c operators)) +(define-module (c operators) + :export (wordy-binary-operators + symbol-binary-operators + binary-operators)) ;;; Simple operators are those which can be combined with '=' @@ -6,15 +9,15 @@ `(+ - * / & ,(symbol #\|) ^ << >> % < > =)) ;; apparently part of C -(define-public wordy-binary-operators +(define wordy-binary-operators '(bitand and_eq and bitor or_eq or xor_eq xor)) -(define-public symbol-binary-operators +(define symbol-binary-operators (append (map (lambda (x) (symbol-append x '=)) simple-operators) `(&& ,(symbol #\| #\|) != ,(symbol #\,) -> ,(symbol #\.)) simple-operators)) -(define-public binary-operators +(define binary-operators (append symbol-binary-operators wordy-binary-operators)) -- cgit v1.2.3