(define-module (guile compat)
  #:export
  (define-syntax-rule))

(cond-expand
 ((not guile-2)
  (use-modules (ice-9 syncase))

  (define-syntax define-syntax-rule
    (syntax-rules ()
      ((define-syntax-rule (keyword . pattern)
         template)
       (define-syntax keyword
         (syntax-rules ()
           ((keyword . pattern)
            template))))))

  ;; (define-syntax define-syntax-rule
  ;;   (syntax-rules ()
  ;;     ((define-syntax-rule (form . pattern) template)
  ;;      (define-syntax form
  ;;        (syntax-rules ()
  ;;          ((form . pattern) template))))))
  )
 (else)
 ;; nothing
 )