#lang scheme/base

(provide dfl-compose)
(require "dfl.ss"
         (for-syntax scheme/base
                     "dfl.ss"))

(define-syntax (dfl-compose stx)
  (syntax-case stx ()
    ((_ . program)
     #`(dfl-sequence #,@(dfl-sort-program #'program)))))