require md5 from file/md5
svn: r17364
This commit is contained in:
parent
aa7bf0d31c
commit
4cd3d34b43
|
@ -3,7 +3,7 @@
|
||||||
|
|
||||||
(Section 'md5)
|
(Section 'md5)
|
||||||
|
|
||||||
(require mzlib/md5)
|
(require file/md5)
|
||||||
|
|
||||||
(test #"d41d8cd98f00b204e9800998ecf8427e" md5 #"")
|
(test #"d41d8cd98f00b204e9800998ecf8427e" md5 #"")
|
||||||
(test #"0cc175b9c0f1b6a831c399e269772661" md5 #"a")
|
(test #"0cc175b9c0f1b6a831c399e269772661" md5 #"a")
|
||||||
|
|
|
@ -3,7 +3,7 @@
|
||||||
exec mred "$0" "$@"
|
exec mred "$0" "$@"
|
||||||
|#
|
|#
|
||||||
#lang scheme
|
#lang scheme
|
||||||
(require plot mzlib/md5 scheme/runtime-path)
|
(require plot file/md5 scheme/runtime-path)
|
||||||
|
|
||||||
(define-runtime-path here "./")
|
(define-runtime-path here "./")
|
||||||
|
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
#lang scheme/base
|
#lang scheme/base
|
||||||
(require mzlib/contract
|
(require mzlib/contract
|
||||||
mzlib/md5
|
file/md5
|
||||||
mzlib/port
|
mzlib/port
|
||||||
mzlib/list
|
mzlib/list
|
||||||
mzlib/plt-match
|
mzlib/plt-match
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
#lang scheme
|
#lang scheme
|
||||||
(require mzlib/md5)
|
(require file/md5)
|
||||||
(provide/contract
|
(provide/contract
|
||||||
[make-labeling (bytes? . -> . (-> symbol?))])
|
[make-labeling (bytes? . -> . (-> symbol?))])
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user