mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

Fix duplicate case in peval

Browse source 
* module/language/tree-il/peval.scm (singly-valued-expression?): Fix
  duplicate case.  Spotted by "mejja" on IRC.
This commit is contained in:
Andy Wingo 2016-06-25 15:34:11 +02:00
parent 73714b87aa
commit 31c76f16c6
1 changed files with 0 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
module/language/tree-il/peval.scm
View file

@ -92,7 +92,6 @@
(define (singly-valued-expression? exp) (define (singly-valued-expression? exp)
(match exp (match exp
(($ <const>) #t) (($ <const>) #t)
(($ <lexical-ref>) #t)
(($ <void>) #t) (($ <void>) #t)
(($ <lexical-ref>) #t) (($ <lexical-ref>) #t)
(($ <primitive-ref>) #t) (($ <primitive-ref>) #t)