source: project/chicken/trunk/tests/compiler-syntax-tests.scm @ 15078

Last change on this file since 15078 was 15078, checked in by felix winkelmann, 10 years ago

forgot file

File size: 626 bytes
Line 
1(define (foo) 1)
2
3(assert (= 1 (foo)))
4
5(define-compiler-syntax foo
6  (syntax-rules ()
7    ((_ x) 2) ) )
8
9(assert (= 2 (foo 42)))
10(assert (= 1 (foo)))
11
12(let-compiler-syntax ((foo (syntax-rules () ((_ x) 3))))
13  (assert (= 3 (foo 42))))
14
15(assert (= 2 (foo 42)))
16
17(module m1 (bar)
18  (import (prefix scheme s:) chicken)
19  (define-compiler-syntax s:+
20    (syntax-rules ()
21      ((_ x y) (s:- x y))))
22  (define-compiler-syntax bar
23    (syntax-rules ()
24      ((_ x y) "oink!")))
25  (s:define (bar x) (s:+ x 1)) )
26
27(module m2 ()
28  (import scheme chicken (prefix m1 m-))
29  (print (m-bar 10))
30  (print (m-bar 10 23))
31  (print (+ 4 3)))
Note: See TracBrowser for help on using the repository browser.