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
35
36
37
38
39
40
41
42
43
(define-public stklos
(package
(name "stklos")
(version "1.70")
(source (origin
(method url-fetch)
(uri (string-append "https://stklos.net/download/stklos-"
version ".tar.gz"))
(sha256
(base32
"1iw3pgycjz3kz3jd1855v2ngf8ib2almpf8v058n1mkj1qd2b88m"))))
(build-system gnu-build-system)
(arguments
(list
#:modules `((ice-9 ftw)
,@%gnu-build-system-modules)
#:phases
#~(modify-phases %standard-phases
(add-before 'configure 'patch-sh-paths
(lambda* (#:key inputs #:allow-other-keys)
(let ((bash-bin (search-input-file inputs "/bin/bash")))
(substitute* "configure"
(("/bin/sh") bash-bin)))))
(add-after 'configure 'patch-rm-paths
(lambda* (#:key inputs #:allow-other-keys)
(let ((rm-bin (search-input-file inputs "/bin/rm")))
(ftw "."
(lambda (filename stat-info f)
(when (and
(equal? f 'regular)
(string=? (basename filename) "Makefile"))
(substitute* filename
(("/bin/rm") rm-bin)))
#t))))))))
(home-page "https://stklos.net")
(synopsis "R7RS Scheme with CLOS-like object system")
(description
"STklos is a free Scheme system mostly compliant with the languages
features defined in R7RS small. The aim of this implementation is to be fast
as well as light. The implementation is based on an ad-hoc Virtual
Machine. STklos can also be compiled as a library and embedded in an
application.")
(license gpl2)))