;;; -*- Mode:Common-Lisp; Package:User; Base:10; Fonts: CPTFONT,HL12,HL12BI,CPTFONTB -*-

Ï1;;;Ï*		Ï2"Almost Scheme"
Ï1;;;
;;;   Ï*Ï*	Ï1An implementation of Scheme running on top ofÏ* Ï1TI Explorer Common Lisp.
;;;
;;;Ï*	Ï1See file Ï*"GUIDE.TEXT"Ï1 for operating instructions.

;;; Copyright (C) 1987,1988 Texas Instruments Incorporated. All rights reserved.

;; Revised:
;;  2/20/88 DNG - Added file Ï*"optimize"Ï1.
;;  3/21/88 DNG - Added file Ï*"guide.text"Ï1.
;;  3/31/88 DNG - Added file Ï*"pnum2s"Ï1.
;;  4/13/88 DNG - Added system Ï*"SCHEME-RUNTIME"Ï1.
;;  4/16/88 DNG - Added files Ï*"structure" Ï1andÏ* "debug".
Ï1;;  4/22/89 DNG - Removed obsolete file Ï*"fix-6159"Ï1.  Added file Ï*"print"Ï1.Ï*


(DEFSYSTEM SCHEME
  (:NAME "Almost Scheme")
  Ï1;;  Default to whatever directory this file is being read from.Ï*
  (:PATHNAME-DEFAULT #.(namestring (send sys:fdefine-file-pathname :new-pathname
					 :name nil :type nil :version nil))) 
  (:MODULE DEFS ("scheme3"))	Ï1; Scheme as per Revised^3 ReportÏ*
  (:MODULE MODE ("mode"		Ï1; Scheme Ï*lisp-modeÏ1 and Zmacs patchesÏ*
		 "readtable"	Ï1; Scheme read tableÏ*
		 "windows"	Ï1; Simulate PC Scheme windowsÏ*
		 ;;"macros"	Ï1; definitions not needed for running compiled codeÏ*
		 ))
  Ï1;; The next group uses the mode macros.Ï*
  (:MODULE EVAL ("pcs"		Ï1; PC Scheme compatibility featuresÏ*
		 "eval"		Ï1; Evaluator patchesÏ*
		 "compiler"	Ï1; Compiler patchesÏ*
		 "ucl"		Ï1; patch UCL error checkingÏ*
		 "mit"		Ï1; Compatibility features for MIT Scheme and/or PseudoschemeÏ*
		 "debug"	Ï1; PC Scheme debug toolsÏ*
	  #+CLOS "print"	Ï1;Ï* print-object Ï1patchesÏ*
		 ))
  (:MODULE MORE ("optimize"	Ï1; Compiler optimizers and style checkersÏ*
		 ))
  (:MODULE FINAL ("in-scheme"	Ï1; functions implemented in SchemeÏ*
		  "structure"	Ï1; macros implemented in SchemeÏ*
		  "pnum2s"	Ï1; Ï3number->stringÏ*Ï*
		  ))
  (:MODULE INFO ("guide.text" "status.text")) ; Ï1user documentation filesÏ*
  (:COMPILE-LOAD DEFS)
  (:COMPILE-LOAD MODE (:FASLOAD DEFS))
  (:COMPILE-LOAD EVAL (:FASLOAD DEFS MODE))
  (:COMPILE-LOAD MORE (:FASLOAD DEFS MODE EVAL))
  (:COMPILE-LOAD FINAL (:FASLOAD DEFS MODE EVAL MORE))
  (:AUXILIARY INFO)
 )

Ï1;; Load the following system instead if you just want to run previously compiled
;; Scheme programs and will not be evaluating, compiling, or editing Scheme source
;; code.Ï*
(DEFSYSTEM SCHEME-RUNTIME
  (:PATHNAME-DEFAULT #.(namestring (send sys:fdefine-file-pathname :new-pathname
					 :name nil :type nil :version nil))) 
  (:MODULE DEFS ("scheme3"))	Ï1; Scheme as per Revised^3 ReportÏ*
  (:MODULE MODE ("readtable"	Ï1; Scheme read tableÏ*
		 "windows"	Ï1; Simulate PC Scheme windowsÏ*
		 ))
  (:MODULE EVAL ("pcs"		Ï1; PC Scheme compatibility featuresÏ*
	  #+CLOS "print"	Ï1;Ï* print-object Ï1patchesÏ*
		  ))
  (:MODULE FINAL ("in-scheme"	Ï1; functions implemented in SchemeÏ*
		  "pnum2s"	Ï1; Ï3number->stringÏ*Ï*
		  ))
  (:FASLOAD DEFS)
  (:FASLOAD MODE (:FASLOAD DEFS))
  (:FASLOAD EVAL (:FASLOAD DEFS MODE))
  (:FASLOAD FINAL (:FASLOAD DEFS MODE EVAL))
 )