mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 12:30:32 +02:00
Code Activity

Switch use of guile-primitive to now available funcall in test.

Browse source
This commit is contained in:
Daniel Kraft 2009-07-30 13:54:07 +02:00
parent f3df67e203
commit ce305387df
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
test-suite/tests/elisp-compiler.test
View file

@ -336,13 +336,13 @@
(lambda ()
(setq cnt (1+ cnt)))))
(setq c1 (make-counter) c2 (make-counter))
(= ((guile-primitive apply) c1 '()) 1)
(= ((guile-primitive apply) c1 '()) 2)
(= ((guile-primitive apply) c1 '()) 3)
(= ((guile-primitive apply) c2 '()) 1)
(= ((guile-primitive apply) c2 '()) 2)
(= ((guile-primitive apply) c1 '()) 4)
(= ((guile-primitive apply) c2 '()) 3))))
(= (funcall c1) 1)
(= (funcall c1) 2)
(= (funcall c1) 3)
(= (funcall c2) 1)
(= (funcall c2) 2)
(= (funcall c1) 4)
(= (funcall c2) 3))))
(with-test-prefix/compile "defconst and defvar"