gistfile1.txt

defsyntax (define-endpoint stx)

  (def (%defvar name match in)
    (let ((e (gensym))
	  (i (gensym))
	  (c (gensym))
	  (varname (string->symbol (format "~A::endpoint"
					   name))))
      `(define ,varname
	 (let ((,e
		(with-catch    (set! bar mux)

		 (lambda (_)
		   (construct-endpoint ,name ,match))
		 (lambda ()
		   (let ((,e ,varname))
		     (set! (endpoint-match ,e) ,match)
		     ,e))))
	       (,i ,in))
	   (unless (memq ,e ,i)
	     (set! (cdr ,i)
	       (cons ,e (cdr ,i))))
	   ,e))))


  (syntax-case stx ()
    ((macro name match in: endpoints)
     (with-syntax ((var (datum->syntax #'macro
			  (%defvar (syntax-e #'name)
				   (syntax-e #'match)
				   (syntax-e #'endpoints)))))
       #'var))
    ((macro name match)
     (with-syntax ((var (datum->syntax #'macro
			  (%defvar (syntax-e #'name)
				   (syntax-e #'match)
				   '*endpoints*))))
       #'var))))

(defrules define-endpoint ()
  ((_ name match)
   (add-endpoint! (make-endpoint 'name match)))
  ((_ name match args ... )
   (add-endpoint! (make-endpoint 'name match args ...)))
  ((_ name match mux: mux args ... )
   (add-endpoint! (make-endpoint 'name match args ...)
                  to: mux)))