Ticket #814: inline.patch

inline.scm

@@ -27 +27 @@
 (module inline (inline inline-compile inline-eval inline-cache)
 
 (import scheme chicken foreign)
-(use bind md5 files extras utils posix data-structures)
+(use bind md5 message-digest files extras utils posix data-structures)
 
 (define-syntax inline
   (syntax-rules ()
@@ -49 +49 @@
 (define (inline-compile text . more)
   (let* ([opts (if (pair? more) (car more) "")]
          [scheme? (and (pair? more) (pair? (cdr more)) (cadr more))]
-         [hc (md5-digest (if scheme? (->string text) text))]
+         [hc (message-digest-string (md5-primitive) (if scheme? (->string text) text))]
          [tmp-sym (and scheme? (string->symbol (string-append "inline#" hc)))]
          [fname (make-pathname (inline-cache) (->string hc) "scm")] 
          [p (vector hc opts text)]

inline.meta

@@ -4 +4 @@
  (category code-generation)
  (license "BSD")
  (doc-from-wiki)
- (needs bind md5)
+ (needs bind (md5 3.0.0) (message-digest 3.0.0))
  (author "felix winkelmann")
  (files "inline.setup" "inline.meta" "inline.release-info" "tests/run.scm" "inline.scm"))