From c96cde229498f278fb60185e1e1f88347b1e7357 Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Fri, 30 Jun 2000 07:04:04 +0000
Subject: [PATCH] Fixed bug in FFI. Up to 12 Arguments to an external call are
 now supported.

---
 scheme/vm/external-call.scm | 3 ++-
 scsh/time.scm               | 1 -
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/vm/external-call.scm b/scheme/vm/external-call.scm
index ad51421..c3bd675 100644
--- a/scheme/vm/external-call.scm
+++ b/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
diff --git a/scsh/time.scm b/scsh/time.scm
index c93f060..e85d427 100644
--- a/scsh/time.scm
+++ b/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