scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove old definition of MD5-DIGEST.

This commit is contained in:
sperber 2003-01-20 14:54:33 +00:00
parent 490565781a
commit b8d8ef0ff6
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
scheme/lib/pop3.scm
View File

@ -259,13 +259,6 @@
(pop3-log connection (format #f "<- ~a" command)) (pop3-log connection (format #f "<- ~a" command))
(pop3-handle-response (pop3-read-response connection) command))) (pop3-handle-response (pop3-read-response connection) command)))
;; who will write this in Scheme?
(define (md5-digest str)
(car (run/strings (md5sum) (<< ,str))))
; the name of the program differs among the distributions
; e.g. in FreeBSD it is called md5
(define (pop3-dump fd) (define (pop3-dump fd)
(let loop ((line (read-crlf-line fd))) (let loop ((line (read-crlf-line fd)))
(cond ((and (not (eof-object? line)) (cond ((and (not (eof-object? line))