From 8df0af8301aca112804768f532a4a62dcf3d61d6 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Wed, 1 Jan 2020 00:00:00 +0100 Subject: Add a random number generator. --- src/scm/webid-oidc/stubs.scm | 4 +++- src/scm/webid-oidc/testing.scm | 1 + 2 files changed, 4 insertions(+), 1 deletion(-) (limited to 'src/scm/webid-oidc') 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)))) -- cgit v1.2.3