PasteRack.org
Paste # 86635
2022-01-14 20:02:29

Fork as a new paste.

Paste viewed 120 times.


Embed:

test infix

  1. #lang 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)