-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Hi list,
it seems that stklos and guile have some problems with (case ...). I concocted
the following testcase:
define (num->bool i)
(case i
('0 #f)
('1 #t)))
(define (num->bool2 i)
(case i
((0) #f)
((1) #t)))
(display (num->bool2 1))(newline)
(display (num->bool2 0))(newline)
(newline)
(display (num->bool 1))(newline)
(display (num->bool 0))(newline)
running this through my schemes produces:
gambit compiler:
compiling...
running...
#t
#f
#t
#f
mzscheme:
#t
#f
#t
#f
bigloo:
#t
#f
#t
#f
gauche:
#t
#f
#t
#f
chicken compiler:
compiling...
running...
#t
#f
#t
#f
guile:
#t
#f
ERROR: In procedure memoization:
ERROR: Duplicate case label quote in expression (case i ((quote 0) #f) ((quote
1) #t)).
stklos with full-syntax:
**** Error while evaluating "(begin (require \"full-syntax\") (load
\"casetest.scm\"))"
Where: in error
Reason: case: duplicate case value quote in ('1 '#t)
- error
- compiler-error
- for-each
- car
- for-each
- <<let/call>>
- rewrite-case-clauses
- compile-case
- compile-user-lambda
- =
- ...
Set shell variable STKLOS_FRAMES to set visible frames
EXIT
stklos:
**** Error while executing file "casetest.scm"
Where: in error
Reason: case: duplicate case value quote in ('1 #t)
- error
- compiler-error
- for-each
- car
- for-each
- <<let/call>>
- rewrite-case-clauses
- compile-case
- compile-user-lambda
- =
- ...
Set shell variable STKLOS_FRAMES to set visible frames
EXIT
elk:
#t
#f
#t
#f
Marijn
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2.0.4 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org
iD8DBQFGUyKKp/VmCx0OL2wRAhS0AKCSP3e5TWjIA/27e3pOR/OANvUiQACgtgqj
4CSpORi/SJv3OL8d4KRm5k8=
=gag8
-----END PGP SIGNATURE-----
_______________________________________________
Bug-guile mailing list
Bug-guile@gnu.org
http://lists.gnu.org/mailman/listinfo/bug-guile
