Import Upstream version 3a1upstream/3a1

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)))