lfe

;; Copyright (c) 2008-2020 Robert Virding
;;
;; Licensed under the Apache License, Version 2.0 (the "License");
;; you may not use this file except in compliance with the License.
;; You may obtain a copy of the License at
;;
;;     http://www.apache.org/licenses/LICENSE-2.0
;;
;; Unless required by applicable law or agreed to in writing, software
;; distributed under the License is distributed on an "AS IS" BASIS,
;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
;; See the License for the specific language governing permissions and
;; limitations under the License.

;; File    : match-spec.lfe
;; Author  : Robert Virding
;; Purpose : The match-spec macro as it could have been implemented in LFE.

(defmacro match-spec body
  ;; Body is clauses so expand it like a match-lambda.
  (let (((cons 'match-lambda exp)
     (macroexpand-all (cons 'match-lambda body) $ENV)))
    (: lfe_ms expand exp)))