array1.scm 204 B

12345678910
  1. ;; Kawa-options: "-f" %F
  2. (define (foo a ::array) (a 0))
  3. (format #t "foo ~w~%" (foo #(a b c)))
  4. ;; Output: foo a
  5. (define (foo1 a ::array1) (a 0))
  6. (format #t "foo1 ~w~%" (foo1 #(a b c)))
  7. ;; Output: foo1 a