src/scheme-library.scm

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;; Standard Library Procedures and Macros ;;
   3 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   4
   5 (load "scheme-library-1-essential.scm")
   6 (load "scheme-library-2-derived-forms.scm")
   7 (load "scheme-library-3-functional.scm")
   8 (load "scheme-library-4-numbers.scm")
   9 (load "scheme-library-5-lists.scm")
  10 (load "scheme-library-6-testing.scm")
  11
  12 ;; MISC
  13
  14 (define (license)
  15   (display
  16 "This program is free software; you can redistribute it and/or modify
  17 it under the terms of the GNU General Public License as published by
  18 the Free Software Foundation; either version 3 of the License, or
  19 (at your option) any later version.
  20
  21 This program is distributed in the hope that it will be useful,
  22 but WITHOUT ANY WARRANTY; without even the implied warranty of
  23 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 GNU General Public License for more details.
  25
  26 You should have received a copy of the GNU General Public License
  27 along with this program. If not, see http://www.gnu.org/licenses/.
  28 "))
  29
  30 (define (welcome)
  31   (display
  32 "Welcome to scheme.forth.jl!
  33
  34 Copyright (C) 2016 Tim Vaughan.
  35 This program comes with ABSOLUTELY NO WARRANTY; for details type '(license)'.
  36 Use Ctrl-D to exit.
  37 "))