;;; init-dsssl.scm
;;; Copyright Henry S. Thompson 1996, 1997
;;; Version 1.0

;;; Produced at HCRC, Edinburgh with support for the UK Economic and Social
;;;  Research Council and SunSoft

;;; DSSSL expression language initialisation
;;; Last edited: Fri Jan  3 16:11:45 1997

;;; Built-in units
(define *d!units* `((m . ,(make-quantity 1 1))))

(d!define-unit cm (d!m 0.01 m))
(d!define-unit mm (d!m 0.1 cm))
(d!define-unit in (d!m 2.54 cm))
(d!define-unit pt (d!/ (d!m 1 in) 72))
(d!define-unit pica (d!/ (d!m 1 in) 6))
