summaryrefslogtreecommitdiff
path: root/csys/dump-params.scm
blob: cabbfd0dbf4db77d392a4075f674c905267ae758 (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
(define *num-saved-gtyvars* 19)
(define *pre-defined-strictness-size* 7)  ; length of max strictness list
(define *pre-defined-strictness-table* '())
(define *pre-defined-strictness-vars* 32) ; number of global vars
(define *pre-defined-strictness-names*
  (make-vector *pre-defined-strictness-vars*))

(dotimes (i *pre-defined-strictness-vars*)
     (setf (vector-ref *pre-defined-strictness-names* i)
	   (string->symbol (format '#f "SAVED-STRICTNESS-~A" i))))

(define *saved-gtyvars* '())
(define *saved-gtyvar-varnames* (make-vector *num-saved-gtyvars*))
(dotimes (i *num-saved-gtyvars*)
  (setf (vector-ref *saved-gtyvar-varnames* i)
	(string->symbol (format '#f "SAVED-GTYVAR-NAME~A" i))))