define* in psyntax

* module/ice-9/optargs.scm:
* module/ice-9/psyntax-pp.scm:
* module/ice-9/psyntax.scm: Make define* available in the default
  environment, as lambda* is available there.
This commit is contained in:
Andy Wingo 2009-10-24 16:32:27 +02:00
commit 97bc28b60a
3 changed files with 4934 additions and 4890 deletions

View file

@ -2678,3 +2678,8 @@
(syntax e))
((_ x (... ...))
(syntax (e x (... ...)))))))))))
(define-syntax define*
(syntax-rules ()
((_ (id . args) b0 b1 ...)
(define id (lambda* args b0 b1 ...)))))