summaryrefslogtreecommitdiff
path: root/test-suite/tests/elisp-compiler.test
diff options
context:
space:
mode:
authorDaniel Kraft <d@domob.eu>2009-07-30 13:54:07 +0200
committerDaniel Kraft <d@domob.eu>2009-07-30 13:54:07 +0200
commitce305387df9c111d9b2e0b330c1eb87fd1bee5cb (patch)
treecda4210fdee7ee5b2bb8892f4e01c5194e712763 /test-suite/tests/elisp-compiler.test
parentf3df67e203d7679f90db2a3d806651c7aa4c0fdc (diff)
downloadguile-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.test14
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"