[karol@localhost 13-02-26 21:55 rooster-noodles/euclid]> csc -c vectors.scm

Syntax error: (vectors.scm:59) - malformed expression: (vect-add . vs)
inside expression `(define ...)'


	Expansion history:

	<syntax>	  (vect? v)
	<syntax>	  (= (vect-x v) (vect-y v) 0)
	<syntax>	  (vect-x v)
	<syntax>	  (vect-y v)
	<syntax>	  (define zero-vect (make-vect 0 0))
	<syntax>	  (make-vect 0 0)
	<syntax>	  (define up (make-vect 0 1))
	<syntax>	  (make-vect 0 1)
	<syntax>	  (define left (make-vect 1 0))
	<syntax>	  (make-vect 1 0)
	<syntax>	  (define down (make-vect 0 -1))
	<syntax>	  (make-vect 0 -1)
	<syntax>	  (define right (make-vect -1 0))
	<syntax>	  (make-vect -1 0)
	<syntax>	  (define (vect-add . vs) (define (add-two a b) (make-vect (+ (vect-x a) (vect-x b)) (+ (vect-y a) (ve......
	<syntax>	  (vect-add . vs)	<--

Error: shell command terminated with non-zero exit status 17920: /usr/bin/chicken vectors.scm -output-file vectors.c