/[guile]/guile/guile-core/test-suite/tests/syntax.test
ViewVC logotype

Diff of /guile/guile-core/test-suite/tests/syntax.test

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by dirk, Sat Nov 15 11:51:17 2003 UTC revision 1.30 by dirk, Sat Nov 15 12:27:54 2003 UTC
# Line 619  Line 619 
619                    (eq? 'c (a 2) (a 5))))                    (eq? 'c (a 2) (a 5))))
620            (interaction-environment)))            (interaction-environment)))
621    
622    (expect-fail "internal defines with begin"    (pass-if "internal defines with begin"
623      (false-if-exception      (false-if-exception
624       (eval '(let ((a identity) (b identity) (c identity))       (eval '(let ((a identity) (b identity) (c identity))
625                (define (a x) (if (= x 0) 'a (b (- x 1))))                (define (a x) (if (= x 0) 'a (b (- x 1))))
# Line 631  Line 631 
631                     (eq? 'c (a 2) (a 5))))                     (eq? 'c (a 2) (a 5))))
632             (interaction-environment))))             (interaction-environment))))
633    
634    (expect-fail "internal defines with empty begin"    (pass-if "internal defines with empty begin"
635      (false-if-exception      (false-if-exception
636       (eval '(let ((a identity) (b identity) (c identity))       (eval '(let ((a identity) (b identity) (c identity))
637                (define (a x) (if (= x 0) 'a (b (- x 1))))                (define (a x) (if (= x 0) 'a (b (- x 1))))

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26