;;;; architectures.scm


(define-constant +architectures+
  (with-input-from-file "stalin.architectures" read) )

(define (get-architecture-name)
  (cond ((assoc 
	  (machine-type)
	  '((alpha . "Alpha")
	    (mips . "MIPS")
	    (ultrasparc . "SPARCv9")
	    (sparc . "SPARC")
	    (ppc . "PowerPC")
	    (x86 . "IA32")
	    (x86-64 . "x86_64")
	    (arm . "ARM") ) ) 
	 => cdr)
	(else "unknown")))