Commit 63eb8ce7 authored by Erick Gallesio's avatar Erick Gallesio

Better isolation of STklos internals through the usage of the SCHEME

module
parent 54d501b3
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 01-Jan-2000 15:04 (eg)
;;;; Last file update: 25-Jun-2007 13:57 (eg)
;;;; Last file update: 4-Jul-2007 14:53 (eg)
;;;;
(include "runtime.stk") ; Definition necessary for the bootstrap
......@@ -175,8 +175,7 @@
;;; can import this module which will be visible before the STklos
;;; module. Note that this is only partially true since bindings
;;; in SCHEME module are mutable
(define-module SCHEME)
;;; Note that module SCHEME was already created before bootstrap
(let ((STklos (find-module 'STklos))
(Scheme (find-module 'SCHEME)))
......
......@@ -21,10 +21,11 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 26-Feb-2000 10:47 (eg)
;;;; Last file update: 6-Jun-2007 09:11 (eg)
;;;; Last file update: 4-Jul-2007 15:12 (eg)
;;;;
(define-module STKLOS-COMPILER
(import SCHEME)
(export eval
disassemble
compiler:time-display
......
......@@ -31,7 +31,7 @@
;;; by Eugene Kohlbecker and in R4RS Appendix.
;;;
;;;
;;; Last file update: 1-Jun-2007 10:27 (eg)
;;; Last file update: 4-Jul-2007 15:15 (eg)
#|
STklos Implementation Notes
......@@ -119,7 +119,8 @@ doc>
|#
(define-module MBE
(import SCHEME)
(define (%not-implemented name)
(error name
"cannot be used here. You must load the file \"full-syntax\" to access it"))
......
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 20-Feb-1994 21:09
;;;; Last file update: 21-Apr-2007 20:15 (eg)
;;;; Last file update: 4-Jul-2007 15:14 (eg)
#|
......@@ -34,6 +34,7 @@
|#
(define-module STKLOS-OBJECT
(import SCHEME)
(export ; Define the exported symbols of this file
find-class is-a?
ensure-metaclass ensure-metaclass-with-supers
......
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 4-Jun-2000 15:07 (eg)
;;;; Last file update: 30-Jun-2007 12:02 (eg)
;;;; Last file update: 4-Jul-2007 15:11 (eg)
;;;;
;; This file defines the REPL module. This module does not export anything
......@@ -31,6 +31,7 @@
(define-module REPL
(import SCHEME)
(export main-repl repl repl-display-prompt main-repl-hook)
;;; In module REPL
......
;;;;
;;;; srfi-0.stk -- SRFI-0 aka cond-expand
;;;;
;;;; Copyright 1999-2006 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;; Copyright 1999-2007 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;;
;;;;
;;;; This program is free software; you can redistribute it and/or modify
......@@ -21,10 +21,11 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 30-Aug-1999 16:26 (eg)
;;;; Last file update: 5-Nov-2006 16:23 (eg)
;;;; Last file update: 4-Jul-2007 15:13 (eg)
;;;;
(define-module SRFI-0
(import SCHEME)
(export srfi0-register-feature!))
(select-module SRFI-0)
......
......@@ -22,7 +22,7 @@
*
* Author: Erick Gallesio [eg@unice.fr]
* Creation date: 23-Oct-1993 21:37
* Last file update: 13-Apr-2007 11:09 (eg)
* Last file update: 4-Jul-2007 14:50 (eg)
*/
#include "stklos.h"
......@@ -519,6 +519,9 @@ int STk_late_init_env(void)
MODULE_NAME(STk_STklos_module) = STk_intern("stklos");
MODULE_IMPORTS(STk_STklos_module) = LIST1(STk_STklos_module);
/* Create the SCHEME module */
STk_makemodule(STk_intern("SCHEME"));
/* ==== Undocumented primitives ==== */
ADD_PRIMITIVE(create_module);
ADD_PRIMITIVE(select_module);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment