37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
;;
;; ;; load md5 library, falling back on slower scheme version
;; (autoload scheme-md5 (md5:digest scheme-md5:digest))
;; (autoload md5 (md5:digest #f scheme-md5:digest))
(module autoload (autoload)
(import scheme chicken)
(define-syntax autoload
(er-macro-transformer
(lambda (expr rename compare)
(let ((module (cadr expr))
(procs (cddr expr))
(_import (rename 'import))
|
|
|
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
;;
;; ;; load md5 library, falling back on slower scheme version
;; (autoload scheme-md5 (md5:digest scheme-md5:digest))
;; (autoload md5 (md5:digest #f scheme-md5:digest))
(module autoload (autoload)
(import scheme (chicken base))
(define-syntax autoload
(er-macro-transformer
(lambda (expr rename compare)
(let ((module (cadr expr))
(procs (cddr expr))
(_import (rename 'import))
|