check-nargs= --> protocol

2003-05-05 06:38:32 +00:00 · 2003-05-05 06:38:32 +00:00 · 0951ec5b42
parent 56cf0cba9f
commit 0951ec5b42
1 changed files with 2 additions and 2 deletions
--- 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)