File ``global_values.scm''

;;--------------------------------------------------------------------------
;; AriNET Project in Informatics IA by Dominique Guinard
;; dominique.guinard@unifr.ch
;;--------------------------------------------------------------------------
;; global values & variables
;;--------------------------------------------------------------------------

; ------------------------------------------------------------
; ABSTRACT:
; *********
; This contains the "global values" of AriNET.
; We call them "global" as they are not encapsulated in
; a function. In other words these variables
; can be accessed by any function within the source
; code of AriNET.
; ------------------------------------------------------------


; ------------------------------------------------------------
; *MODULES*
; ------------------------------------------------------------

(define *MODULES* '())

(define (reset-modules)
  (set! *MODULES* '()))


; ------------------------------------------------------------
; end of *MODULES*
; ------------------------------------------------------------

; ------------------------------------------------------------
; *VARIABLES*
; ------------------------------------------------------------

(define *VARIABLES* '())

(define (reset-variables)
  (set! *VARIABLES* '()))

; ------------------------------------------------------------
; end of *VARIABLES*
; ------------------------------------------------------------

; ------------------------------------------------------------
; the-global-environment
; ------------------------------------------------------------

(define the-global-environment (setup-environment))

(define (reset-the-global-environment)
  (set! the-global-environment (setup-environment)))


; ------------------------------------------------------------
; end of the-global-environment
; ------------------------------------------------------------


;;--------------------------------------------------------------------------
;; end of global values & variables
;;--------------------------------------------------------------------------