diff options
Diffstat (limited to 'simetrix.scm')
| -rw-r--r-- | simetrix.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/simetrix.scm b/simetrix.scm index 3a3f16b..e187dd2 100644 --- a/simetrix.scm +++ b/simetrix.scm @@ -8,7 +8,7 @@ ;1. Any copy made of this software must include this copyright notice ;in full. ; -;2. I have made no warrantee or representation that the operation of +;2. I have made no warranty or representation that the operation of ;this software will be error-free, and I am under no obligation to ;provide any services, by way of maintenance, update, or otherwise. ; @@ -22,6 +22,7 @@ ;; http://swissnet.ai.mit.edu/~jaffer/MIXF.html (require 'precedence-parse) +(require 'string-port) ;;; Combine alists (define (SI:adjoin unitlst SIms) @@ -200,7 +201,7 @@ ((symbol? result) (SI:expand-unit result)) (else result))))) -;;;; advertised interface +;;;;@ advertised interface (define (SI:conversion-factor to-unit from-unit) (let ((funit (SI:expand-equivalence from-unit)) (tunit (SI:expand-equivalence to-unit))) |