PasteRack.org
Paste # 1848
2014-04-06 07:40:05

Fork as a new paste.

Paste viewed 451 times.


Embed:

#lang plai


(test (calc (parse '3)) 3)
(test (calc (parse '(4 + 2))) 6)
(test (calc (parse '(4 / 2))) 2)
(test (calc (parse '(4 * 2))) 8)
(test (calc (parse '(with (x 5) (x + (with (y 3) x))))) 10)
(test (calc (parse '(with (x 5) (with (y x) y)))) 5)
(test (calc (parse '(with (x 5) (with (x x) x)))) 5)

=>

module: identifier already imported for label from: (rename plai #%module-begin #...
  at: #%module-begin
  in: (rename plai #%module-begin #%module-begin)