diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2020-01-01 00:00:00 +0100 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-05-11 00:14:27 +0200 |
commit | d33b47eb282d6b46378e88df3693caa7ce4f1cce (patch) | |
tree | bb36ca3a8975ca2985b063a2971e59cc4cbf0a5c /src/scm/webid-oidc | |
parent | b021d3c7188a5705a858144c0bdd8e6a962fc677 (diff) |
Add a random number generator.
Diffstat (limited to 'src/scm/webid-oidc')
-rw-r--r-- | src/scm/webid-oidc/stubs.scm | 4 | ||||
-rw-r--r-- | src/scm/webid-oidc/testing.scm | 1 |
2 files changed, 4 insertions, 1 deletions
diff --git a/src/scm/webid-oidc/stubs.scm b/src/scm/webid-oidc/stubs.scm index 12006e6..b022ef2 100644 --- a/src/scm/webid-oidc/stubs.scm +++ b/src/scm/webid-oidc/stubs.scm @@ -15,4 +15,6 @@ (export base64-encode - (fix-base64-decode . base64-decode)) + (fix-base64-decode . base64-decode) + random + random-init!) diff --git a/src/scm/webid-oidc/testing.scm b/src/scm/webid-oidc/testing.scm index 40284cf..d4b7f4d 100644 --- a/src/scm/webid-oidc/testing.scm +++ b/src/scm/webid-oidc/testing.scm @@ -24,4 +24,5 @@ (error->str error)) (raise-exception error)) (lambda () + (random-init!) (f)))) |