diff options
author | Andy Wingo <wingo@pobox.com> | 2011-09-02 11:36:14 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-09-02 11:36:14 +0200 |
commit | 0c65f52c6d45f60e197fad7162d05c0fce89e817 (patch) | |
tree | 36b801d56064c1686befe9c3de561ade6cd6e2fa /module/oop/goops | |
parent | 1bbe0a631c4e72fffc033cb4f83eba7252ce3c9c (diff) | |
download | guile-0c65f52c6d45f60e197fad7162d05c0fce89e817.tar.gz |
more define-syntax-rule usage
* module/ice-9/boot-9.scm:
* module/ice-9/control.scm:
* module/ice-9/futures.scm:
* module/ice-9/optargs.scm:
* module/ice-9/poll.scm:
* module/ice-9/receive.scm:
* module/ice-9/threads.scm:
* module/ice-9/vlist.scm:
* module/language/assembly/compile-bytecode.scm:
* module/language/ecmascript/compile-tree-il.scm:
* module/language/tree-il.scm:
* module/oop/goops.scm:
* module/oop/goops/simple.scm:
* module/oop/goops/stklos.scm:
* module/srfi/srfi-1.scm:
* module/srfi/srfi-35.scm:
* module/srfi/srfi-39.scm:
* module/srfi/srfi-45.scm:
* module/srfi/srfi-67/compare.scm:
* module/sxml/match.scm:
* module/system/repl/error-handling.scm:
* module/system/repl/repl.scm:
* module/system/vm/inspect.scm:
* module/texinfo.scm:
* module/web/server.scm: Use define-syntax-rule, where it makes sense.
Diffstat (limited to 'module/oop/goops')
-rw-r--r-- | module/oop/goops/simple.scm | 8 | ||||
-rw-r--r-- | module/oop/goops/stklos.scm | 8 |
2 files changed, 6 insertions, 10 deletions
diff --git a/module/oop/goops/simple.scm b/module/oop/goops/simple.scm index 8f4d839c1..fba4d4192 100644 --- a/module/oop/goops/simple.scm +++ b/module/oop/goops/simple.scm @@ -1,6 +1,6 @@ ;;; installed-scm-file -;;;; Copyright (C) 2005, 2006, 2010 Free Software Foundation, Inc. +;;;; Copyright (C) 2005, 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 @@ -23,10 +23,8 @@ :export (define-class) :no-backtrace) -(define-syntax define-class - (syntax-rules () - ((_ arg ...) - (define-class-with-accessors-keywords arg ...)))) +(define-syntax-rule (define-class arg ...) + (define-class-with-accessors-keywords arg ...)) (module-use! (module-public-interface (current-module)) (resolve-interface '(oop goops))) 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)) |