diff options
author | Daniel Kraft <d@domob.eu> | 2009-07-30 13:54:07 +0200 |
---|---|---|
committer | Daniel Kraft <d@domob.eu> | 2009-07-30 13:54:07 +0200 |
commit | ce305387df9c111d9b2e0b330c1eb87fd1bee5cb (patch) | |
tree | cda4210fdee7ee5b2bb8892f4e01c5194e712763 /test-suite/tests/elisp-compiler.test | |
parent | f3df67e203d7679f90db2a3d806651c7aa4c0fdc (diff) | |
download | guile-ce305387df9c111d9b2e0b330c1eb87fd1bee5cb.tar.gz |
Switch use of guile-primitive to now available funcall in test.
Diffstat (limited to 'test-suite/tests/elisp-compiler.test')
-rw-r--r-- | test-suite/tests/elisp-compiler.test | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/test-suite/tests/elisp-compiler.test b/test-suite/tests/elisp-compiler.test index 7d77c3b8d..7e013b825 100644 --- a/test-suite/tests/elisp-compiler.test +++ b/test-suite/tests/elisp-compiler.test @@ -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" |