summaryrefslogtreecommitdiff
path: root/s7test.scm
diff options
context:
space:
mode:
Diffstat (limited to 's7test.scm')
-rw-r--r--s7test.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/s7test.scm b/s7test.scm
index d7d0c1b..3d51d3f 100644
--- a/s7test.scm
+++ b/s7test.scm
@@ -29945,6 +29945,8 @@ in s7:
(test (apply (lambda args (apply list args)) () (cons 1 2)) 'error)
(test (apply (lambda args (apply list args)) (cons 1 2)) 'error)
(test (apply (apply lambda (signature +) '('x)) #i(1)) 'error)
+(test (let () (define (f x) (apply x ((if (> 3 2) list vector) 3 2))) (f +)) 5) ; optimizer bug
+(test (let () (define (f x) (apply x ((if (> 3 2) + -) 3 2))) (f abs)) 'error)
(test (apply "hi" '(1 2)) 'error)
(test ("hi" 1 2) 'error)