/[guile]/guile/guile-core/ice-9/slib.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/slib.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.35 by mvo, Thu Jul 11 23:21:25 2002 UTC revision 1.36 by dirk, Sun Nov 24 08:18:19 2002 UTC
# Line 269  Line 269 
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))

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26