blob: b022ef251cc15c2603007a6f0c66b44ed76bee9e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(define-module (webid-oidc stubs)
#:use-module (webid-oidc config)
#:use-module (webid-oidc errors))
(load-extension
(format #f "~a/libwebidoidc" libdir)
"init_webidoidc")
(define (fix-base64-decode data)
(catch 'base64-decoding-error
(lambda ()
(base64-decode data))
(lambda error
(raise-not-base64 data error))))
(export
base64-encode
(fix-base64-decode . base64-decode)
random
random-init!)
|
