Fixed bug in FFI. Up to 12 Arguments to an external call are now

supported.

scheme/vm/external-call.scm

@@ -15,8 +15,9 @@
 	   (stack-nargs (extract-fixnum (pop)))
 	   (rest-list (pop)))
       (if (< maximum-external-call-args
-	     nargs)
+	     (- nargs 2)); ignore procedure & name
 	  (raise-exception too-many-arguments-to-external-procedure
+			   0
 			   (stack-ref (- stack-nargs 1))
 			   nargs)
 	  (begin

scsh/time.scm

@@ -200,7 +200,6 @@
   (format-date "~a ~b ~d ~H:~M:~S ~Y" date))
 
 (define (format-date fmt date)
-  (warn "format-date called, this will fail since it calls with 13 args")
   (check-arg date? date format-date)
   (receive (err result)
 	   (%format-date/errno fmt