That fixes it Vasilij! Thanks a lot.
Felix, can you get this fix upstream? These steps worked for me:
1009 address@hidden ~/.c/c/simple-sha1 ➤ git diff -U0 simple-sha1.scm
diff --git a/simple-sha1.scm b/simple-sha1.scm
index 2289bb1..3991eb3 100644
--- a/simple-sha1.scm
+++ b/simple-sha1.scm
@@ -23 +23 @@
-(define finish (foreign-lambda void "SHA1Final" c-pointer scheme-pointer))
+(define finish (foreign-lambda void "SHA1Final" scheme-pointer c-pointer))
@@ -40 +40 @@
- (finish ctxt digest)
+ (finish digest ctxt)
@@ -76 +76 @@
- (finish ctxt digest)
+ (finish digest ctxt)
Thanks, everyone :-)
K.