/[guile]/guile/guile-core/oop/goops/stklos.scm
ViewVC logotype

Diff of /guile/guile-core/oop/goops/stklos.scm

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

revision 1.2 by mvo, Sun Jun 3 23:32:27 2001 UTC revision 1.3 by dirk, Mon Jul 8 20:40:32 2002 UTC
# Line 1  Line 1 
1  ;;;;    Copyright (C) 1999 Free Software Foundation, Inc.  ;;;; Copyright (C) 1999,2002 Free Software Foundation, Inc.
2  ;;;;  ;;;;
3  ;;;; This program is free software; you can redistribute it and/or modify  ;;;; This program is free software; you can redistribute it and/or modify
4  ;;;; it under the terms of the GNU General Public License as published by  ;;;; it under the terms of the GNU General Public License as published by
# Line 81  Line 81 
81          (supers caddr)          (supers caddr)
82          (slots cadddr)          (slots cadddr)
83          (rest cddddr))          (rest cddddr))
84      (procedure->macro      (procedure->memoizing-macro
85        (lambda (exp env)        (lambda (exp env)
86          (standard-define-class-transformer          (standard-define-class-transformer
87           `(define-class ,(name exp) ,(supers exp) ,@(slots exp)           `(define-class ,(name exp) ,(supers exp) ,@(slots exp)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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