PasteRack.org
Paste # 34875
2022-01-14 20:01:54

Fork as a new paste.

Paste viewed 122 times.


Embed:

test infix

  1. #lang at-exp racket
  2. (require infix)
  3. @${1+2*3}

=>

datum->syntax: contract violation

  expected: (or/c #f syntax?

                     (list/c any/c

                             (or/c exact-positive-integer?

#f)

                             (or/c

exact-nonnegative-integer? #f)

                             (or/c exact-positive-integer?

#f)

                             (or/c

exact-nonnegative-integer? #f))

                     (vector/c any/c

                               (or/c exact-positive-integer?

#f)

                               (or/c

exact-nonnegative-integer? #f)

                               (or/c exact-positive-integer?

#f)

                               (or/c

exact-nonnegative-integer? #f)))

  given: '(eval 2 -1 2 1)