(case ...)

[Marijn Schouten (hkBst)]

-----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-----