Ticket #814: inline.patch
File inline.patch, 1.3 KB (added by , 12 years ago) |
---|
-
inline.scm
27 27 (module inline (inline inline-compile inline-eval inline-cache) 28 28 29 29 (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) 31 31 32 32 (define-syntax inline 33 33 (syntax-rules () … … 49 49 (define (inline-compile text . more) 50 50 (let* ([opts (if (pair? more) (car more) "")] 51 51 [scheme? (and (pair? more) (pair? (cdr more)) (cadr more))] 52 [hc (m d5-digest(if scheme? (->string text) text))]52 [hc (message-digest-string (md5-primitive) (if scheme? (->string text) text))] 53 53 [tmp-sym (and scheme? (string->symbol (string-append "inline#" hc)))] 54 54 [fname (make-pathname (inline-cache) (->string hc) "scm")] 55 55 [p (vector hc opts text)] -
inline.meta
4 4 (category code-generation) 5 5 (license "BSD") 6 6 (doc-from-wiki) 7 (needs bind md5)7 (needs bind (md5 3.0.0) (message-digest 3.0.0)) 8 8 (author "felix winkelmann") 9 9 (files "inline.setup" "inline.meta" "inline.release-info" "tests/run.scm" "inline.scm"))