syntax-violation: prefer 'subform' for source info, with 'form' as fallback
authorMark H Weaver <mhw@netris.org>
Wed, 15 Feb 2012 05:41:24 +0000 (00:41 -0500)
committerMark H Weaver <mhw@netris.org>
Wed, 15 Feb 2012 05:41:24 +0000 (00:41 -0500)
commitbbd1281ae5551e31d1bc720c7e93528619e0a693
tree5ef1ff575b34f5f427f49fbc875b3e8e02af5e6c
parent30398e94f9cadfaff44117bbff214b0b7ba703ca
syntax-violation: prefer 'subform' for source info, with 'form' as fallback

* module/ice-9/psyntax.scm (syntax-violation): Look for source
  properties of 'subform' first.  If 'subform' has none, 'form' is used.
  Previously, the source information of 'form' was used unless 'form'
  _itself_ was '#f', in which case 'subform' was used.

* module/ice-9/psyntax-pp.scm: Regenerate.
module/ice-9/psyntax-pp.scm
module/ice-9/psyntax.scm