[ create a new paste ] login | about

Link: http://codepad.org/mDVMEs2U    [ raw code | output | fork ]

Scheme, pasted on Sep 26:
1
2
3
4
5
6
7
(define x 23)
(define-syntax foo
 (syntax-rules ()
   ((_) x)))
(display
  (let ((x 42))
    (foo)))    ; --> 23


Output:
1
23


Create a new paste based on this one


Comments: