18 lines
427 B
Scheme
18 lines
427 B
Scheme
;; module loader for SRFI-1
|
|
(module |1| mzscheme
|
|
|
|
(require (lib "list.ss" "srfi" "1"))
|
|
|
|
(provide (all-from-except (lib "list.ss" "srfi" "1")
|
|
s:append! s:reverse!
|
|
s:map s:for-each
|
|
s:member
|
|
s:assoc)
|
|
(rename s:append! append!)
|
|
(rename s:reverse! reverse!)
|
|
(rename s:map map)
|
|
(rename s:for-each for-each)
|
|
(rename s:member member)
|
|
(rename s:assoc assoc)))
|
|
|