summaryrefslogtreecommitdiff
path: root/gnu/system/setuid.scm
diff options
context:
space:
mode:
authorThéo Tyburn <theo.tyburn@posteo.net>2026-06-03 10:56:10 +0200
committerNguyễn Gia Phong <cnx@loang.net>2026-08-31 11:00:19 +0900
commitc62ebcd02c2eb190ab5dc157475ef4a93a1c7581 (patch)
treef178f262874978ac0be45e5499db5cc2d63248fe /gnu/system/setuid.scm
parent30cb1f541eb99b0fbbec1f8f29796151103c5f2b (diff)
doc: Move Commentary above module definition.
Merges: https://codeberg.org/guix/guix/pulls/9052 Reviewed-by: Ludovic Courtès <ludo@gnu.org> Reviewed-by: Maxim Cournoyer <maxim@guixotic.coop> Signed-off-by: Nguyễn Gia Phong <cnx@loang.net>
Diffstat (limited to 'gnu/system/setuid.scm')
-rw-r--r--gnu/system/setuid.scm16
1 files changed, 8 insertions, 8 deletions
diff --git a/gnu/system/setuid.scm b/gnu/system/setuid.scm
index 097797ce8d7..dab31dad5d2 100644
--- a/gnu/system/setuid.scm
+++ b/gnu/system/setuid.scm
@@ -17,6 +17,14 @@
17;;; You should have received a copy of the GNU General Public License 17;;; You should have received a copy of the GNU General Public License
18;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. 18;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
19 19
20;;; Commentary:
21;;;
22;;; Do not use this module in new code. It used to define data structures
23;;; representing setuid/setgid programs, but is now a mere compatibility shim
24;;; wrapping a subset of (gnu system privilege).
25;;;
26;;; Code:
27
20(define-module (gnu system setuid) 28(define-module (gnu system setuid)
21 #:use-module (gnu system privilege) 29 #:use-module (gnu system privilege)
22 #:use-module (ice-9 match) 30 #:use-module (ice-9 match)
@@ -30,14 +38,6 @@
30 setuid-program-user 38 setuid-program-user
31 setuid-program-group)) 39 setuid-program-group))
32 40
33;;; Commentary:
34;;;
35;;; Do not use this module in new code. It used to define data structures
36;;; representing setuid/setgid programs, but is now a mere compatibility shim
37;;; wrapping a subset of (gnu system privilege).
38;;;
39;;; Code:
40
41(define-syntax setuid-program 41(define-syntax setuid-program
42 (lambda (fields) 42 (lambda (fields)
43 (syntax-case fields () 43 (syntax-case fields ()