mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-20 02:30:23 +02:00
Code Activity

Merge remote-tracking branch 'origin/stable-2.0'

Browse source 
Conflicts:
	libguile/read.c
	test-suite/tests/tree-il.test
This commit is contained in:
Andy Wingo 2012-02-11 18:14:48 +01:00
commit a41bed83ab
10 changed files with 426 additions and 205 deletions
Download patch file Download diff file Expand all files Collapse all files

19
test-suite/tests/tree-il.test
View file

@ -1162,24 +1162,21 @@
(case foo
((3 2 1) 'a)
(else 'b))
(if (let (t) (_) ((toplevel foo))
(if (primcall eqv? (lexical t _) (const 3))
(let (key) (_) ((toplevel foo))
(if (if (primcall eqv? (lexical key _) (const 3))
(const #t)
(if (primcall eqv? (lexical t _) (const 2))
(if (primcall eqv? (lexical key _) (const 2))
(const #t)
(primcall eqv? (lexical t _) (const 1)))))
(const a)
(const b)))
(primcall eqv? (lexical key _) (const 1))))
(const a)
(const b))))
(pass-if-peval
;; Memv with non-constant key, empty list, test context. Currently
;; doesn't fold entirely.
;; Memv with non-constant key, empty list, test context.
(case foo
(() 'a)
(else 'b))
(if (seq (toplevel foo) (const #f))
(const a)
(const b)))
(seq (toplevel foo) (const 'b)))
;;
;; Below are cases where constant propagation should bail out.