artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

bugs/top.mes: document toplevel begin bug; probable reason for record/syntax-case failure.

Browse source
This commit is contained in:
Jan Nieuwenhuizen 2016-07-23 15:29:14 +02:00
parent 262c507303
commit 7662a0918d
2 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
bugs/top.mes Normal file
View file

@ -0,0 +1,12 @@
(begin (define *test-begin-a* '*test-begin-a*))
(display "defined? *test-begin-a*: ")
(display (defined? '*test-begin-a*))
(newline)
(display *test-begin-a*)
(newline)
(let () (define *test-let-a* '*test-let-a*) #f)
(display "defined? *test-let-a*: ")
(display (defined? '*test-let-a*))
(newline)

6
test.mes
View file

@ -236,6 +236,12 @@
(pass-if "cond-expand" (sequal? (cond-expand (foobar #f) (mes (display ": pass: *YAY*") 'mes) (guile (display ": pass: *GUILE*") 'mes)) 'mes)) (pass-if "cond-expand" (sequal? (cond-expand (foobar #f) (mes (display ": pass: *YAY*") 'mes) (guile (display ": pass: *GUILE*") 'mes)) 'mes))
(begin (define *top-begin-a* '*top-begin-a*))
(pass-if "top begin " (seq? (and (defined? '*top-begin-a*) *top-begin-a*) '*top-begin-a*))
(let () (define *top-let-a* '*top-let-a*) #f)
(pass-if "top let " (seq? (and (defined? '*top-let-a*) *top-let-a*) #f))
(newline) (newline)
(display "passed: ") (display (car (result))) (newline) (display "passed: ") (display (car (result))) (newline)
(display "failed: ") (display (cadr (result))) (newline) (display "failed: ") (display (cadr (result))) (newline)