Functional PostScript alist->int-map correction

[stktrc <stktrc@yahoo.com>]

Arguments to vector constructor seem to have been swapped.

*** fps.map.scm.orig    Sat Mar  1 20:14:14 2003
--- fps.map.scm Sun Mar  2 00:19:42 2003
***************
*** 164,170 ****
  
  (define (alist->int-map alist map-size . user-default)
    (let* ((default-val (:optional user-default #f))
!        (new-vect    (make-vector default-val map-size)))
      (for-each (lambda (pair) (vector-set! new-vect (car pair) (cdr pair)))
              alist)
      (make-int-map new-vect)))
--- 164,170 ----
  
  (define (alist->int-map alist map-size . user-default)
    (let* ((default-val (:optional user-default #f))
!        (new-vect    (make-vector map-size default-val)))
      (for-each (lambda (pair) (vector-set! new-vect (car pair) (cdr pair)))
              alist)
      (make-int-map new-vect)))