os.scm 1.21 KB
Newer Older
Aljosha Papsch's avatar
Aljosha Papsch committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
;;; Stern Kit --- Guix channel by Stern Data
;;; Copyright © 2021 Aljosha Papsch <ep@stern-data.com>
;;;
;;; This file is part of Stern Kit.
;;;
;;; Stern Kit is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; Stern Kit is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with Stern Kit.  If not, see <http://www.gnu.org/licenses/>.

(define-module (stern-kit os)
  #:export (os!))

;;; Commentary: Utilities for composing operating systems.

(define-syntax os!
  (syntax-rules (base)
    ((_ base base-os os-func os-args os-func* os-args* ...)
     (let ((c (os-func base-os)))
       (os! base (apply c os-args)
	    os-func* os-args* ...)))
    ((_ base base-os os-func os-args)
     (let ((c (os-func base-os)))
       (apply c os-args)))
    ((_ base base-os)
     base-os)))