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
|
;; -*-theme-d-*-
;; Copyright (C) 2015, 2021, 2022 Tommi Höynälänmaa
;; Distributed under GNU Lesser General Public License version 3,
;; see file doc/LGPL-3.
;; The following procedures have been checked for result type safety
;; against Guile 3.0.7 source code:
;; getenv, file-exists?
(define-body (standard-library system)
(add-method getenv
;; (unchecked-prim-proc theme-getenv (<string>)
;; (:maybe <string>)
;; pure))
(unchecked-prim-proc getenv (<string>) (:alt-maybe <string>) pure))
(add-method setenv
(unchecked-prim-proc setenv (<string> (:alt-maybe <string>)) <none>
nonpure))
(add-method file-exists?
(unchecked-prim-proc file-exists? (<string>) <boolean> pure))
(add-method delete-file
(prim-proc theme-delete-file (<string>) <none> nonpure))
(add-method system
(prim-proc system (<string>) <integer> nonpure)))
|
