diff options
| author | David Robillard <d@drobilla.net> | 2012-12-25 08:35:43 +0000 |
|---|---|---|
| committer | David Robillard <d@drobilla.net> | 2012-12-25 08:35:43 +0000 |
| commit | 77d27b3495bfa98c5e13707903e4f885e8521ab6 (patch) | |
| tree | b2cadb927fd0ab8732001fc77a580f1dffcd0744 /test | |
| parent | 12314c754187ae246bc38aceb827bf51d1669d73 (diff) | |
| download | resp-77d27b3495bfa98c5e13707903e4f885e8521ab6.tar.gz resp-77d27b3495bfa98c5e13707903e4f885e8521ab6.tar.bz2 resp-77d27b3495bfa98c5e13707903e4f885e8521ab6.zip | |
Support multiple ellipses in macros.
Support lambda expressions with empty argument lists.
git-svn-id: http://svn.drobilla.net/resp/trunk@445 ad02d1e2-f140-0410-9f75-f8b11f17cedd
Diffstat (limited to 'test')
| -rw-r--r-- | test/let.scm | 16 | ||||
| -rw-r--r-- | test/noargs.scm | 2 |
2 files changed, 12 insertions, 6 deletions
diff --git a/test/let.scm b/test/let.scm index 67858b6..3fb57a7 100644 --- a/test/let.scm +++ b/test/let.scm @@ -1,7 +1,11 @@ -(define one 1) +(define-syntax let + (syntax-rules () + ((let ((name val) ...) body1 ...) + ((lambda (name ...) body1 ...) + val ...)))) -(let (two (+ one 1) - three (+ one 2)) - (+ two three)) - -
\ No newline at end of file +(define inc + (let ((dy 1)) + (lambda (y) (+ y dy)))) + +(inc 41) diff --git a/test/noargs.scm b/test/noargs.scm new file mode 100644 index 0000000..9139c2a --- /dev/null +++ b/test/noargs.scm @@ -0,0 +1,2 @@ +((lambda () + (* 2 3)))
\ No newline at end of file |