module/ice-9/curried-definitions.scm

   1 ;;; Copyright (C) 2010, 2013  Free Software Foundation, Inc.
   2 ;;;
   3 ;;;; This library is free software; you can redistribute it and/or
   4 ;;;; modify it under the terms of the GNU Lesser General Public
   5 ;;;; License as published by the Free Software Foundation; either
   6 ;;;; version 3 of the License, or (at your option) any later version.
   7 ;;;;
   8 ;;;; This library is distributed in the hope that it will be useful,
   9 ;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 ;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11 ;;;; Lesser General Public License for more details.
  12 ;;;;
  13 ;;;; You should have received a copy of the GNU Lesser General Public
  14 ;;;; License along with this library; if not, write to the Free Software
  15 ;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  16
  17 (define-module (ice-9 curried-definitions)
  18   #:replace ((cdefine . define)
  19              (cdefine* . define*)
  20              define-public))
  21
  22 (define-syntax cdefine
  23   (syntax-rules ()
  24     ((_ (head . rest) body body* ...)
  25      (cdefine head
  26        (lambda rest body body* ...)))
  27     ((_ name val)
  28      (define name val))))
  29
  30 (define-syntax cdefine*
  31   (syntax-rules ()
  32     ((_ (head . rest) body body* ...)
  33      (cdefine* head
  34        (lambda* rest body body* ...)))
  35     ((_ name val)
  36      (define* name val))))
  37
  38 (define-syntax define-public
  39   (syntax-rules ()
  40     ((_ (head . rest) body body* ...)
  41      (define-public head
  42        (lambda rest body body* ...)))
  43     ((_ name val)
  44      (begin
  45        (define name val)
  46        (export name)))))