2016 Update

This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions

View file

@ -1,11 +1,3 @@
(define-library (lib sha1)
(export
sha1:digest)
(import (r5rs base)
(owl math) (owl list) (owl string) (owl list-extra))
(begin
; band - binary AND operation
; bor - binary OR operation
; bxor - binary XOR operation
@ -166,4 +158,3 @@
(->32 (+ C c))
(->32 (+ D d))
(->32 (+ E e)))))))))
))

View file

@ -1,4 +1,3 @@
(import (lib sha1))
(define (->string value)
(runes->string
(let ((L "0123456789abcdef"))