scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

check-nargs= --> protocol

This commit is contained in:
mainzelm 2003-05-05 06:37:45 +00:00
parent 3e397f65c5
commit 8805f7b7cc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scheme/misc/annotate.scm
View File

@ -7,7 +7,7 @@
(define annotate-procedure (define annotate-procedure
(lap annotate-procedure () (lap annotate-procedure ()
0 (check-nargs= 2) 0 (protocol 2)
2 (make-env 2) 2 (make-env 2)
4 (local0 2) 4 (local0 2)
6 (stored-object-ref closure 0) 6 (stored-object-ref closure 0)
@ -24,7 +24,7 @@
(define procedure-annotation (define procedure-annotation
(lap procedure-anotation () (lap procedure-anotation ()
0 (check-nargs= 1) 0 (protocol 1)
2 (make-env 1) 2 (make-env 1)
4 (literal '2) 4 (literal '2)
6 (push) 6 (push)