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/language/ecmascript/compile-tree-il.scm | |
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/language/ecmascript/compile-tree-il.scm')
-rw-r--r-- | module/language/ecmascript/compile-tree-il.scm | 36 |
1 files changed, 14 insertions, 22 deletions
diff --git a/module/language/ecmascript/compile-tree-il.scm b/module/language/ecmascript/compile-tree-il.scm index c46fd621d..a2401f442 100644 --- a/module/language/ecmascript/compile-tree-il.scm +++ b/module/language/ecmascript/compile-tree-il.scm @@ -25,20 +25,14 @@ #:use-module (srfi srfi-1) #:export (compile-tree-il)) -(define-syntax -> - (syntax-rules () - ((_ (type arg ...)) - `(type ,arg ...)))) +(define-syntax-rule (-> (type arg ...)) + `(type ,arg ...)) -(define-syntax @implv - (syntax-rules () - ((_ sym) - (-> (@ '(language ecmascript impl) 'sym))))) +(define-syntax-rule (@implv sym) + (-> (@ '(language ecmascript impl) 'sym))) -(define-syntax @impl - (syntax-rules () - ((_ sym arg ...) - (-> (apply (@implv sym) arg ...))))) +(define-syntax-rule (@impl sym arg ...) + (-> (apply (@implv sym) arg ...))) (define (empty-lexical-environment) '()) @@ -67,16 +61,14 @@ ;; for emacs: ;; (put 'pmatch/source 'scheme-indent-function 1) -(define-syntax pmatch/source - (syntax-rules () - ((_ x clause ...) - (let ((x x)) - (let ((res (pmatch x - clause ...))) - (let ((loc (location x))) - (if loc - (set-source-properties! res (location x)))) - res))))) +(define-syntax-rule (pmatch/source x clause ...) + (let ((x x)) + (let ((res (pmatch x + clause ...))) + (let ((loc (location x))) + (if loc + (set-source-properties! res (location x)))) + res))) (define (comp x e) (let ((l (location x))) |