Ticket #814: inline.patch

File inline.patch, 1.3 KB (added by dsp, 10 years ago)
  • inline.scm

     
    2727(module inline (inline inline-compile inline-eval inline-cache)
    2828
    2929(import scheme chicken foreign)
    30 (use bind md5 files extras utils posix data-structures)
     30(use bind md5 message-digest files extras utils posix data-structures)
    3131
    3232(define-syntax inline
    3333  (syntax-rules ()
     
    4949(define (inline-compile text . more)
    5050  (let* ([opts (if (pair? more) (car more) "")]
    5151         [scheme? (and (pair? more) (pair? (cdr more)) (cadr more))]
    52          [hc (md5-digest (if scheme? (->string text) text))]
     52         [hc (message-digest-string (md5-primitive) (if scheme? (->string text) text))]
    5353         [tmp-sym (and scheme? (string->symbol (string-append "inline#" hc)))]
    5454         [fname (make-pathname (inline-cache) (->string hc) "scm")]
    5555         [p (vector hc opts text)]
  • inline.meta

     
    44 (category code-generation)
    55 (license "BSD")
    66 (doc-from-wiki)
    7  (needs bind md5)
     7 (needs bind (md5 3.0.0) (message-digest 3.0.0))
    88 (author "felix winkelmann")
    99 (files "inline.setup" "inline.meta" "inline.release-info" "tests/run.scm" "inline.scm"))