269 |
(define offset-time +) |
(define offset-time +) |
270 |
|
|
271 |
|
|
|
(define %system-define define) |
|
|
|
|
272 |
(define define |
(define define |
273 |
(procedure->memoizing-macro |
(procedure->memoizing-macro |
274 |
(lambda (exp env) |
(lambda (exp env) |
275 |
(if (= (length env) 1) |
(if (= (length env) 1) |
276 |
`(define-public ,@(cdr exp)) |
`(define-public ,@(cdr exp)) |
277 |
`(%system-define ,@(cdr exp)))))) |
`(define-private ,@(cdr exp)))))) |
278 |
|
|
279 |
;;; Hack to make syncase macros work in the slib module |
;;; Hack to make syncase macros work in the slib module |
280 |
(if (nested-ref the-root-module '(app modules ice-9 syncase)) |
(if (nested-ref the-root-module '(app modules ice-9 syncase)) |