home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mitsch75.zip / scheme-7_5_17-src.zip / scheme-7.5.17 / src / swat / scheme / scc-macros.scm < prev    next >
Text File  |  1995-08-02  |  699b  |  23 lines
  1. ;;;; -*-Scheme-*-
  2. ;;; $Id: scc-macros.scm,v 1.1 1995/08/02 21:26:49 adams Exp $
  3.  
  4. (syntax-table-define system-global-syntax-table
  5.     'DEFINE-CONSTANT
  6.   (macro (name value) `(DEFINE-INTEGRABLE ,name ,value)))
  7.  
  8. (syntax-table-define system-global-syntax-table
  9.     'DEFINE-IN-LINE
  10.   (macro (arg-list . body)
  11.     `(DEFINE-INTEGRABLE ,arg-list . ,body)))
  12.  
  13. (syntax-table-define system-global-syntax-table
  14.     'SCC-DEFINE-SYNTAX
  15.   (macro (name-and-arglist . body)
  16.     (let ((name (car name-and-arglist))
  17.       (arglist (cdr name-and-arglist)))
  18.       `(SYNTAX-TABLE-DEFINE SYSTEM-GLOBAL-SYNTAX-TABLE
  19.        ',name
  20.      (MACRO ,arglist ,@body)))))
  21.  
  22. (define-integrable *running-in-mit-scheme* #T)
  23.