@@ -17,11 +17,11 @@
 ;; 
 ;;     You should have received a copy of the GNU General Public License
 ;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 ;;
 
-(use simple-exceptions)
+(import simple-exceptions)
 (define vg:lib-exn (make-exception "wrong record type, expected vg:lib." 'assert))
 (define (pmake-vg:lib . params)(let ((v (if (null? params)(make-vector 2)(apply vector 'vg:lib params)))) v))
 (define (make-vg:lib #!key 
               (comps #f)
          )
@@ -30,11 +30,11 @@
 (define-inline (vg:lib-comps       vec)(if (eq? (vector-ref vec 0) 'vg:lib)(vector-ref  vec 1)(raise (vg:lib-exn 'vg:lib-comps 'xpr))))
 
 (define-inline (vg:lib-comps-set!  vec val)(if (eq? (vector-ref vec 0) 'vg:lib)(vector-set! vec 1 val)(raise (vg:lib-exn 'comps))))
 ;; Generated using make-vector-record -safe vg comp objs name file
 
-(use simple-exceptions)
+(import simple-exceptions)
 (define vg:comp-exn (make-exception "wrong record type, expected vg:comp." 'assert))
 (define (pmake-vg:comp . params)(let ((v (if (null? params)(make-vector 4)(apply vector 'vg:comp params)))) v))
 (define (make-vg:comp #!key 
               (objs #f)
               (name #f)
@@ -49,11 +49,11 @@
 (define-inline (vg:comp-objs-set!  vec val)(if (eq? (vector-ref vec 0) 'vg:comp)(vector-set! vec 1 val)(raise (vg:comp-exn 'objs))))
 (define-inline (vg:comp-name-set!  vec val)(if (eq? (vector-ref vec 0) 'vg:comp)(vector-set! vec 2 val)(raise (vg:comp-exn 'name))))
 (define-inline (vg:comp-file-set!  vec val)(if (eq? (vector-ref vec 0) 'vg:comp)(vector-set! vec 3 val)(raise (vg:comp-exn 'file))))
 ;; Generated using make-vector-record -safe vg obj type pts fill-color text line-color call-back angle font attrib extents proc
 
-(use simple-exceptions)
+(import simple-exceptions)
 (define vg:obj-exn (make-exception "wrong record type, expected vg:obj." 'assert))
 (define (pmake-vg:obj . params)(let ((v (if (null? params)(make-vector 12)(apply vector 'vg:obj params)))) v))
 (define (make-vg:obj #!key 
               (type #f)
               (pts #f)
@@ -92,11 +92,11 @@
 (define-inline (vg:obj-attrib-set!      vec val)(if (eq? (vector-ref vec 0) 'vg:obj)(vector-set! vec 9 val)(raise (vg:obj-exn 'attrib))))
 (define-inline (vg:obj-extents-set!     vec val)(if (eq? (vector-ref vec 0) 'vg:obj)(vector-set! vec 10 val)(raise (vg:obj-exn 'extents))))
 (define-inline (vg:obj-proc-set!        vec val)(if (eq? (vector-ref vec 0) 'vg:obj)(vector-set! vec 11 val)(raise (vg:obj-exn 'proc))))
 ;; Generated using make-vector-record -safe vg inst libname compname theta xoff yoff scalex scaley mirrx mirry call-back cache
 
-(use simple-exceptions)
+(import simple-exceptions)
 (define vg:inst-exn (make-exception "wrong record type, expected vg:inst." 'assert))
 (define (pmake-vg:inst . params)(let ((v (if (null? params)(make-vector 12)(apply vector 'vg:inst params)))) v))
 (define (make-vg:inst #!key 
               (libname #f)
               (compname #f)
@@ -135,11 +135,11 @@
 (define-inline (vg:inst-mirry-set!      vec val)(if (eq? (vector-ref vec 0) 'vg:inst)(vector-set! vec 9 val)(raise (vg:inst-exn 'mirry))))
 (define-inline (vg:inst-call-back-set!  vec val)(if (eq? (vector-ref vec 0) 'vg:inst)(vector-set! vec 10 val)(raise (vg:inst-exn 'call-back))))
 (define-inline (vg:inst-cache-set!      vec val)(if (eq? (vector-ref vec 0) 'vg:inst)(vector-set! vec 11 val)(raise (vg:inst-exn 'cache))))
 ;; Generated using make-vector-record -safe vg drawing libs insts scalex scaley xoff yoff cnv cache
 
-(use simple-exceptions)
+(import simple-exceptions)
 (define vg:drawing-exn (make-exception "wrong record type, expected vg:drawing." 'assert))
 (define (pmake-vg:drawing . params)(let ((v (if (null? params)(make-vector 9)(apply vector 'vg:drawing params)))) v))
 (define (make-vg:drawing #!key 
               (libs #f)
               (insts #f)