Bug? module system + match pasted by mario-goulart on Sat Jul 26 03:01:42 2014

$ cat m.scm
(use matchable)

(match 'some-form
  ((or ('define-syntax identifier (syntax-rules ...))
       ('define-syntax identifier (er-macro-transformer ...)))
   'a-macro)
  (else #f))

$ csc m.scm
$ echo $?
0

$ cat m2.scm
(module bug ()

(import chicken scheme)
(use matchable)

(match 'some-form
  ((or ('define-syntax identifier (syntax-rules ...))
       ('define-syntax identifier (er-macro-transformer ...)))
   'a-macro)
  (else #f))

)

$ csc m2.scm

Warning: reference to possibly unbound identifier `syntax-rules' in:
Warning:    fk21019
Warning:    suggesting one of:
Warning:    (import r5rs-null)
Warning:    (import r4rs-null)
Warning:    (import scheme)
Warning:    (import r4rs)

Error: module unresolved: bug

Error: shell command terminated with non-zero exit status 256: '/home/mario/local/chicken-gc-optm/bin/chicken' 'm2.scm' -output-file 'm2.c'

Simplified matchable breakage added by sjamaan on Sat Jul 26 13:23:35 2014

(module bug ()

(import chicken scheme)
(use matchable)

(match 'some-form
  ((or ('x a) ('y b))
   'a-macro)
  (else #f))

)