[ikarus-users] Re: syntax->position

[kub]

Hi,

Since i have no answer to my original question
will try to answer myself :)

(import (ikarus))

  (define (syntax-position stx)
    (guard (e [else (and
                      (source-position-condition? e)
                      (- (source-position-character e) 1))])
           (syntax-violation
             'syntax-position
             "syntax-position"
             stx)))

It is kind of dirty hack but it is based on current public ikarus
interface.

--
Bogdan