(define *unix* #t)
(define *dos* #f)

;;; InitScm.scm
;(system "clear")

(cond (*unix*
       (map load (list "/usr/local/scheme/lib/slib/record" 
		       "/usr/local/scheme/lib/slib/random" 
		       "/usr/local/scheme/lib/slib/format" 
		       "/usr/local/scheme/lib/slib/sort"
		       "/home/s7/pat/scheme/pub/arrays" 
		       "/home/s7/pat/scheme/pub/read-wrd" 
		       "/home/s7/pat/scheme/pub/world" 
		       "/home/s7/pat/scheme/pub/misc" 
		       "/home/s7/pat/scheme/pub/graphics" 
		       "/home/s7/pat/scheme/pub/graphs")))
      (*dos*
       (map load (list "c:/scm/slib/record" 
		       "c:/scm/slib/random" 
		       "c:/scm/slib/format" 
		       "c:/scm/slib/sort"
		       "arrays" 
		       "read-wrd" 
		       "world" 
		       "misc" 
		       "graphics" 
		       "graphs"))))