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.

module/ice-9/optargs.scm

@@ -59,12 +59,11 @@
 
 (define-module (ice-9 optargs)
   #:use-module (system base pmatch)
-  #:re-export (lambda*)
+  #:re-export (lambda* define*)
   #:export (let-optional
             let-optional*
             let-keywords
             let-keywords*
-            define*
             define*-public
             defmacro*
             defmacro*-public))
@@ -256,11 +255,6 @@
 ;; Of course, define*[-public] also supports #:rest and #:allow-other-keys
 ;; in the same way as lambda*.
 
-(define-syntax define*
-  (syntax-rules ()
-    ((_ (id . args) b0 b1 ...)
-     (define id (lambda* args b0 b1 ...)))))
-
 (define-syntax define*-public
   (syntax-rules ()
     ((_ (id . args) b0 b1 ...)

module/ice-9/psyntax.scm

@@ -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 ...)))))