From 8805f7b7cc3e8c2b78c89ec1d8c03f1dadacc9cb Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 5 May 2003 06:37:45 +0000
Subject: [PATCH] check-nargs=  --> protocol

---
 scheme/misc/annotate.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scheme/misc/annotate.scm b/scheme/misc/annotate.scm
index 5c83cba..f14152b 100644
--- a/scheme/misc/annotate.scm
+++ b/scheme/misc/annotate.scm
@@ -7,7 +7,7 @@
 
 (define annotate-procedure
   (lap annotate-procedure ()
-       0 (check-nargs= 2)
+       0 (protocol 2)
        2 (make-env 2)
        4 (local0 2)
        6 (stored-object-ref closure 0)
@@ -24,7 +24,7 @@
 
 (define procedure-annotation
   (lap procedure-anotation ()
-       0 (check-nargs= 1)
+       0 (protocol 1)
        2 (make-env 1)
        4 (literal '2)
        6 (push)