diff options
Diffstat (limited to 'module/oop/goops/stklos.scm')
-rw-r--r-- | module/oop/goops/stklos.scm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/module/oop/goops/stklos.scm b/module/oop/goops/stklos.scm index 8a7ae1636..45272fa19 100644 --- a/module/oop/goops/stklos.scm +++ b/module/oop/goops/stklos.scm @@ -1,4 +1,4 @@ -;;;; Copyright (C) 1999,2002, 2006, 2010 Free Software Foundation, Inc. +;;;; Copyright (C) 1999,2002, 2006, 2010, 2011 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -47,10 +47,8 @@ ;;; Enable keyword support (*fixme*---currently this has global effect) (read-set! keywords 'prefix) -(define-syntax define-class - (syntax-rules () - ((_ name supers (slot ...) rest ...) - (standard-define-class name supers slot ... rest ...)))) +(define-syntax-rule (define-class name supers (slot ...) rest ...) + (standard-define-class name supers slot ... rest ...)) (define (toplevel-define! name val) (module-define! (current-module) name val)) |