mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-21 11:10:21 +02:00
Code Activity

Constant-folding eq? and eqv? uses deduplication

Browse source 
* test-suite/tests/peval.test ("partial evaluation"): Add tests.
* module/language/tree-il/peval.scm (peval): Constant-fold eq? and eqv?
  using equal?, anticipating deduplication.
This commit is contained in:
Andy Wingo 2016-06-24 17:35:55 +02:00
parent ff5cafc77d
commit 229d062f83
2 changed files with 17 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test-suite/tests/peval.test
View file

@ -1359,6 +1359,14 @@
(((x) #f #f #f () (_))
(call (toplevel bar) (lexical x _))))))
(pass-if-peval
(eq? '(a b) '(a b))
(const #t))
(pass-if-peval
(eqv? '(a b) '(a b))
(const #t))
(pass-if-peval
((lambda (foo)
(define* (bar a #:optional (b (1+ a)))